feat: rtd report update

templates/rtd-report/pages/channels_2.Rmd

@@ -0,0 +1,56 @@
+Channels - %
+=====================================
+
+Column {data-width=50%}
+----------------------------------------------------------------------------
+
+### Average email hours
+
+```{r}
+bar_dow(
+  data = p_data,
+  metric = "Email_hours",
+  title = "Average email hours",
+  bar_fill = rgb2hex(r = 242, g = 200, b = 15),
+  return = "dist"
+  )
+```
+
+### Average meeting hours
+
+```{r}
+bar_dow(
+  data = p_data,
+  metric = "Meeting_hours",
+  title = "Average meeting hours",
+  bar_fill = rgb2hex(r = 253, g = 98, b = 94),
+  return = "dist"
+  )
+```
+
+Column {data-width=50%}
+----------------------------------------------------------------------------
+
+### Average call hours
+
+```{r}
+bar_dow(
+  data = p_data,
+  metric = "Call_hours",
+  title = "Average call hours",
+  bar_fill = rgb2hex(r = 138, g = 212, b = 135),
+  return = "dist"
+  )
+```
+
+### Average instant message hours
+
+```{r}
+bar_dow(
+  data = p_data,
+  metric = "Instant_Message_hours",
+  title = "Average IM hours",
+  bar_fill = rgb2hex(r = 55, g = 70, b = 73),
+  return = "dist"
+  )
+```

templates/rtd-report/pages/drill_1.Rmd

@@ -0,0 +1,82 @@
+Time Trend
+=====================================
+
+Column {data-width=100%} {.tabset}
+----------------------------------------------------------------------------
+
+### Day Span over time
+
+```{r}
+tt_viz(
+  data = p_data,
+  metric = "Workweek_span",
+  threshold = 2,
+  title = "Day Span"
+)
+
+# avg_ch <- avg_vb(data = p_data, metric = "Workweek_span", return = "raw")
+# 
+# p_data %>%
+#   group_by(DayOfWeek, Date) %>%
+#   summarise(
+#     Workweek_span = mean(Workweek_span, na.rm = TRUE),
+#     .groups = "drop") %>%
+#   filter(Workweek_span >= 2) %>%
+#   ggplot(
+#     aes(
+#       x = Date,
+#       y = Workweek_span,
+#       colour = DayOfWeek
+#     )
+#     ) +
+#   geom_point(alpha = 0.8) +
+#   geom_hline(yintercept = avg_ch, linetype = "dashed", colour = "darkgrey") +
+#   geom_text(
+#     data = data.frame(
+#      AVGCH = avg_ch 
+#     ),
+#     aes(
+#       x = p_data %>%
+#         extract_date_range(return = "table") %>%
+#         pull(End),
+#       y = avg_ch,
+#       label = paste("Average:", round(AVGCH, 1))
+#       ),
+#     vjust = 1,
+#     colour = "darkgrey",
+#     size = 2
+#     ) +
+#   theme_wpa_basic() +
+#   labs(
+#     title = "Day Span over time",
+#     subtitle = "By days of the week",
+#     y = "Day Span",
+#     caption = paste(
+#       extract_date_range(p_data, return = "text"),
+#       "\nShowing day spans of 2 or more."
+#   ))
+```
+
+### Collaboration Hours over time
+
+```{r}
+tt_viz(
+  data = p_data,
+  metric = "Collaboration_hours",
+  threshold = 1,
+  title = "Collaboration hours"
+)
+```
+
+### After Hours over time
+
+```{r}
+tt_viz(
+  data = p_data,
+  metric = "After_hours_collaboration_hours",
+  threshold = 0,
+  title = "After hours"
+)
+```
+
+

templates/rtd-report/pages/page_2.Rmd

@@ -4,6 +4,20 @@ Drill-down
 Column {data-width=33%}
 ----------------------------------------------------------------------------
 
+### Average day span 
+
+```{r}
+
+heatmap_dow(
+  data = p_data,
+  hrvar = hrvar_str,
+  metric = "Workweek_span",
+  title = "Day span",
+  return = "topbox",
+  grid_fill = rgb2hex(r = 1, g = 92, b = 85)
+  )
+```
+
 ### Average day span
 
 ```{r}
@@ -36,6 +50,19 @@ heatmap_dow(
 Column {data-width=33%}
 ----------------------------------------------------------------------------
 
+### Average collaboration hours 
+
+```{r}
+heatmap_dow(
+  data = p_data,
+  hrvar = hrvar_str,
+  metric = "Collaboration_hours",
+  title = "Collaboration hours",
+  return = "topbox",
+  grid_fill = rgb2hex(r = 1, g = 184, b = 170)
+  )
+```
+
 ### Average collaboration hours
 
 ```{r}
@@ -64,6 +91,19 @@ heatmap_dow(
 Column {data-width=33%}
 ----------------------------------------------------------------------------
 
+### Average day span 
+
+```{r}
+heatmap_dow(
+  data = p_data,
+  hrvar = hrvar_str,
+  metric = "After_hours_collaboration_hours",
+  title = "After hours",
+  return = "topbox",
+  grid_fill = rgb2hex(r = 253, g = 98, b = 94)
+  )
+```
+
 ### Average day span
 
 ```{r}

templates/rtd-report/rtd_report.Rmd

@@ -36,13 +36,13 @@ p_data <-
   mutate(DayOfWeek = lubridate::wday(Date, label = TRUE, abbr = FALSE) %>%
            factor(levels = 
              c(
-               "Sunday",
                "Monday",
                "Tuesday",
                "Wednesday",
                "Thursday",
                "Friday",
-               "Saturday"
+               "Saturday",
+               "Sunday"
              )
            )) %>%
   filter(Emails_sent >= min_activity | Instant_messages_sent >= min_activity) 
@@ -68,3 +68,9 @@ source("auxiliary.R")
 
 ```{r child="pages/channels.Rmd"}
 ```
+
+```{r child="pages/channels_2.Rmd"}
+```
+
+```{r child="pages/drill_1.Rmd"}
+```