From 839c7584831dd981ec68db11e4366551813228ba Mon Sep 17 00:00:00 2001 From: Noelle James Date: Fri, 26 Jan 2024 16:38:39 -0600 Subject: [PATCH] Fix: dplyr 1.1.0 warnings Addresses part of #48 --- supervisor-summarize.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/supervisor-summarize.R b/supervisor-summarize.R index 511df60..5bf391a 100644 --- a/supervisor-summarize.R +++ b/supervisor-summarize.R @@ -600,9 +600,9 @@ Workbook_Writer <- function() { # take the average Rxn from the 55 and 65 and only keep dates that aren't already in df_Temp df_Rxn = r %>% dplyr::filter(task != "TH" & `Dur (ms)` == min_duration & `Inten (dB)` %in% c(55,65)) %>% # not equal TH - reframe(Rxn = mean(Rxn), `Inten (dB)` = mean(`Inten (dB)`), across(), + mutate(Rxn = mean(Rxn), `Inten (dB)` = mean(`Inten (dB)`), .by = date) %>% - distinct() %>% + distinct() %>% # remove duplicates b/c of multiple lines filter(! date %in% df_Temp$date) %>% rbind(df_Temp)