Duration testing fully working

Finished getting count table. It makes no distinction between Tones and BBN.

supervisor-summarize.R

@@ -470,17 +470,16 @@ Workbook_Writer <- function() {
             select(-frequency)
         }
 
+        # Pre-Hearing loss Duration testing counts
         if (task_current == "Duration Testing") {
-          x = "test"
-
           count_df = rat_runs %>%
             tidyr::unnest_wider(assignment) %>%
-            dplyr::filter(phase == "BBN" & task %in% c("Rxn", "TH") & detail == "Alone") %>%
-            group_by(task, detail) %>%
-            summarise(task = unique(task), detail = unique(detail),
+            dplyr::filter(task != "Training" & pre_HL) %>%
+            reframe(task = unique(task), detail = unique(detail),
                       date = tail(date, 1), n = n(),
                       condition = "baseline",
-                      .groups = "drop")
+                      .by = c(task, detail)) %>%
+            arrange(desc(date))
         }