Make users optional in reaction check. (#93)

r4ds · Apr 11, 2024 · 5572df3 · 5572df3
1 parent 901d7fe
commit 5572df3
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -219,19 +219,19 @@
       heavy_check_mark = .has_reaction(
         .data$reactions,
         c("heavy_check_mark", "question-answered", "white_check_mark"),
-        .data$user,
-        mentors
+        users = .data$user,
+        mentors = mentors
       ),
       thread_tag = .has_reaction(
         .data$reactions,
         c("thread", "reply"),
-        mentors
+        mentors = mentors
       ),
       nevermind = .has_reaction(
         .data$reactions,
         c("question-nevermind", "octagonal_sign", "nevermind"),
-        .data$user,
-        mentors
+        users = .data$user,
+        mentors = mentors
       )
     ) |>
     dplyr::filter(
@@ -297,7 +297,7 @@
 #' @keywords internal
 .has_reaction <- function(reactions,
                           reaction_name,
-                          users,
+                          users = character(length(reactions)),
                           mentors = character()) {
   purrr::map2_lgl(
     reactions, users,