Avoids reusing object names to correct error in the planning output

Cristrinaranjus · Jul 4, 2023 · 37de558 · 37de558
1 parent 3370a51
commit 37de558
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 15 deletions.
diff --git a/doc/other/C2011_W4_Planning.qmd b/doc/other/C2011_W4_Planning.qmd
@@ -73,29 +73,26 @@ total_date |> ggplotly()
 
 # Estimated efforts (in "relative points")
 
-```{r effort}
-```
-
 ## By team member
 
 ::: {.panel-tabset}
 
 ### Coding
 
 ```{r coding-member-points}
-coding_load |> ggplotly()
+coding_effort |> ggplotly()
 ```
 
 ### Review
 
 ```{r review-member-points}
-review_load |> ggplotly()
+review_effort |> ggplotly()
 ```
 
 ### Total
 
 ```{r total-member-points}
-total_load |> ggplotly()
+total_effort |> ggplotly()
 ```
 
 :::
@@ -108,19 +105,19 @@ total_load |> ggplotly()
 ### Coding
 
 ```{r coding-date-points}
-coding_date |> ggplotly()
+coding_effort_date |> ggplotly()
 ```
 
 ### Review
 
 ```{r review-date-points}
-review_date |> ggplotly()
+review_effort_date |> ggplotly()
 ```
 
 ### Total
 
 ```{r total-date-points}
-total_date |> ggplotly()
+total_effort_date |> ggplotly()
 ```
 
 :::
diff --git a/src/C2011_W4_Planning.R b/src/C2011_W4_Planning.R
@@ -102,23 +102,23 @@ total_date <- bind_rows(coding_data, review_data) |>
 ## By team member:
 
 ### Coding:
-coding_load <- coding_data |>
+coding_effort <- coding_data |>
   count(Assignee, wt = points) |>
   ggplot(aes(x = Assignee, y = n, fill = Assignee)) +
   geom_col() +
   ylab("Effort (points)") +
   guides(fill = guide_none())
 
 ### Review:
-review_load <- review_data |>
+review_effort <- review_data |>
   count(Assignee, wt = points) |>
   ggplot(aes(x = Assignee, y = n, fill = Assignee)) +
   geom_col() +
   ylab("Effort (points)") +
   guides(fill = guide_none())
 
 ### Total:
-total_load <- coding_data |> bind_rows(review_data) |>
+total_effort <- coding_data |> bind_rows(review_data) |>
   count(Assignee, wt = points) |>
   ggplot(aes(x = Assignee, y = n, fill = Assignee)) +
   geom_col() +
@@ -128,25 +128,26 @@ total_load <- coding_data |> bind_rows(review_data) |>
 ## By date:
 
 ### Coding:
-coding_date <- coding_data |>
+coding_effort_date <- coding_data |>
   count(Assignee, `Due date`, wt = points) |>
   ggplot(aes(x = `Due date`, y = n, color = Assignee, group = Assignee)) +
   geom_freqpoly(stat = "identity") +
   geom_point() +
   ylab("Effort (points)")
 
 ### Review:
-review_date <- review_data |>
+review_effort_date <- review_data |>
   count(Assignee, `Due date`, wt = points) |>
   ggplot(aes(x = `Due date`, y = n, color = Assignee, group = Assignee)) +
   geom_freqpoly(stat = "identity") +
   geom_point() +
   ylab("Effort (points)")
 
 ### Total:
-total_date <- bind_rows(coding_data, review_data) |>
+total_effort_date <- bind_rows(coding_data, review_data) |>
   count(Assignee, `Due date`, wt = points) |>
   ggplot(aes(x = `Due date`, y = n, color = Assignee, group = Assignee)) +
   geom_freqpoly(stat = "identity") +
   geom_point() +
   ylab("Effort (points)")
+