report: Tidy up code blocks

This commit reformats the code blocks, replaces some non-dplyr methods
with corresponding dplyr functions and qualifies function calls from
packages that have not been imported (purrr and dplyr).

inst/rmd/html_report.Rmd

@@ -3,8 +3,8 @@ title: "ChatStat Report for `r Sys.Date()`"
 params:
   test: true
   data: null
-output: 
-  html_document: 
+output:
+  html_document:
     css: 'style.css'
     fig_width: 9
     fig_height: 4
@@ -13,25 +13,30 @@ output:
 
 ```{r setup, include=FALSE}
 knitr::opts_chunk$set(
-	echo = FALSE,
-	message = FALSE,
-	warning = FALSE
+  echo = FALSE,
+  message = FALSE,
+  warning = FALSE
 )
 
 library(ggplot2)
 
 # We expect a block of room(s) data
+
 data <- params$data
+
 if (is.null(data)) {
   stop("No data provided!")
 }
 
 end <- max(data$time)
-data |>
-    dplyr::filter(time > end - lubridate::days(30)) |>
-    dplyr::filter( !is.na(body) | type == 'm.reaction') |> #chat only
-    dplyr::mutate(day  = lubridate::date(time),
-                  hour = lubridate::hour(time)) -> data
+
+data <- data |>
+  dplyr::filter(time > end - lubridate::days(30)) |>
+  dplyr::filter(!is.na(body) | type == "m.reaction") |> # chat only
+  dplyr::mutate(
+    day = lubridate::date(time),
+    hour = lubridate::hour(time)
+  )
 ```
 
 Statistics generated on `r Sys.time()`
@@ -43,57 +48,78 @@ speaking a total of **`r nrow(data)`** messages.
 
 ```{r}
 data |>
-  count(day) |>
-  ggplot(aes(x=day,y=n)) +
-  geom_col(fill = 'lightblue') +
+  dplyr::count(day) |>
+  ggplot(aes(x = day, y = n)) +
+  geom_col(fill = "lightblue") +
   geom_smooth() +
-    theme_bw() +
-  labs(x='Hour',y="Messages")
+  theme_bw() +
+  labs(x = "Hour", y = "Messages")
 ```
 
 ### Daily Activity, breakdown by time-of-day
 
 ```{r}
 data |>
-  mutate(colour = case_when(
+  dplyr::mutate(colour = dplyr::case_when(
     hour %in% 0:5 ~ "0-5",
     hour %in% 6:11 ~ "6-11",
     hour %in% 12:17 ~ "12-17",
     TRUE ~ "18-23"
   )) |>
-  mutate(colour = factor(colour, levels = rev(c('0-5','6-11','12-17','18-23')))) |>
-  count(day,colour) |>
-  add_count(day,wt = n,name = 'total') |>
-  ggplot(aes(x=day,y=n,fill=colour)) +
-  geom_col(position="stack") +
-  geom_text(aes(y=total, label = total, fill = NULL), nudge_y = 30) +
-  scale_fill_manual(name = 'Hour', values = c('blue','green','yellow','red')) +
+  dplyr::mutate(colour = factor(
+    colour,
+    levels = rev(c("0-5", "6-11", "12-17", "18-23"))
+  )) |>
+  dplyr::count(day, colour) |>
+  dplyr::add_count(day, wt = n, name = "total") |>
+  ggplot(aes(x = day, y = n, fill = colour)) +
+  geom_col(position = "stack") +
+  geom_text(aes(y = total, label = total, fill = NULL), nudge_y = 30) +
+  scale_fill_manual(
+    name = "Hour",
+    values = c("blue", "green", "yellow", "red")
+  ) +
   theme_bw() +
-  labs(x='Date',y='Messages')
+  labs(x = "Date", y = "Messages")
 ```
 
 ### Most active times
 
 ```{r}
 data |>
-  count(hour) |>
-  mutate(p = n/sum(n)) |>
-  mutate(colour = case_when(
+  dplyr::count(hour) |>
+  dplyr::mutate(p = n / sum(n)) |>
+  dplyr::mutate(colour = dplyr::case_when(
     hour %in% 0:5 ~ "0-5",
     hour %in% 6:11 ~ "6-11",
     hour %in% 12:17 ~ "12-17",
     TRUE ~ "18-23"
   )) |>
-  mutate(colour = factor(colour, levels = rev(c('0-5','6-11','12-17','18-23')))) |>
-  ggplot(aes(x=hour,y=p,fill=colour)) +
+  dplyr::mutate(colour = factor(
+    colour,
+    levels = rev(c("0-5", "6-11", "12-17", "18-23"))
+  )) |>
+  ggplot(aes(x = hour, y = p, fill = colour)) +
   geom_col() +
-  geom_text(aes(y=p, label = scales::percent(p,accuracy = 0.1)), size = 3, vjust = -.5) +
-  scale_fill_manual(name = 'Hour', values = c('blue','green','yellow','red')) +
-  scale_x_continuous(breaks=0:23) +
+  geom_text(
+    aes(
+      y = p,
+      label = scales::percent(p, accuracy = 0.1)
+    ),
+    size = 3,
+    vjust = -.5
+  ) +
+  scale_fill_manual(
+    name = "Hour",
+    values = c("blue", "green", "yellow", "red")
+  ) +
+  scale_x_continuous(breaks = 0:23) +
   theme_bw() +
-  theme(axis.ticks.y = element_blank(),
-        axis.text.y = element_blank()) +
-  labs(x='Hour',y="")
+  theme(
+    axis.ticks.y = element_blank(),
+    axis.text.y = element_blank()
+  ) +
+  labs(x = "Hour", y = "")
 ```
 
 ### Top ten posters (by message count)
@@ -103,38 +129,50 @@ counting.
 
 ```{r}
 data |>
-  group_by(sender) |>
-  tidytext::unnest_tokens(output = 'word',
-                          input = body,
-                          drop = FALSE) |>
-  filter(!(word %in% tidytext::stop_words$word)) |>
-  add_count(sender, name = 'words') |>
-  group_by(sender) |>
-  slice_sample(n=1) |>
-  left_join(count(data,sender,name='messages'),by="sender") |>
-  arrange(-messages) |>
-  select(-word) |>
-  head(10) |>
-  mutate(body = stringr::str_replace_all(body, pattern = '\n', ' ')) |>
-  rename(`random message` = body) |>
-  knitr::kable(format='html')
+  dplyr::group_by(sender) |>
+  tidytext::unnest_tokens(
+    output = "word",
+    input = body,
+    drop = FALSE
+  ) |>
+  dplyr::filter(!(word %in% tidytext::stop_words$word)) |>
+  dplyr::add_count(sender, name = "words") |>
+  dplyr::group_by(sender) |>
+  dplyr::slice_sample(n = 1) |>
+  dplyr::left_join(
+    dplyr::count(data, sender, name = "messages"),
+    by = "sender"
+  ) |>
+  dplyr::arrange(-messages) |>
+  dplyr::select(-word) |>
+  dplyr::slice_head(n = 10) |>
+  dplyr::mutate(body = stringr::str_replace_all(body, pattern = "\n", " ")) |>
+  dplyr::rename(`random message` = body) |>
+  knitr::kable(format = "html")
 ```
 
 ### Most Used Words
 
 ```{r}
-data |>
-  dplyr::filter( !is.na(body) | type == 'm.reaction') |> #chat only
-  tidytext::unnest_tokens(output = 'word', input = body,
-                          drop = FALSE) |>
-  filter(!(word %in% tidytext::stop_words$word)) -> d
-
-d |>  
-  count(word,sort=T) |>
-  head(10) |>
-  mutate(last_used_by = map_chr(
-    word, ~{filter(d, word == .x) |> tail(1) |> pull(sender)}
+words_data <- data |>
+  dplyr::filter(!is.na(body) | type == "m.reaction") |> # chat only
+  tidytext::unnest_tokens(
+    output = "word", input = body,
+    drop = FALSE
+  ) |>
+  dplyr::filter(!(word %in% tidytext::stop_words$word))
+
+words_data |>
+  dplyr::count(word, sort = T) |>
+  dplyr::slice_head(n = 10) |>
+  dplyr::mutate(last_used_by = purrr::map_chr(
+    word, ~ {
+      words_data |>
+        dplyr::filter(word == .x) |>
+        dplyr::slice_tail(n = 1) |>
+        dplyr::pull(sender)
+    }
   )) |>
-  knitr::kable(format='html')  
+  knitr::kable(format = "html")
 ```