chore: cleanup

insightsengineering · Dec 5, 2024 · fce5e03 · fce5e03
1 parent 7b3bc78
commit fce5e03
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R
@@ -52,15 +52,12 @@ template_adverse_events <- function(dataname = "ANL",
             aeterm, tox_grade, causality, outcome, action, time, decod
           ) %>%
           dplyr::arrange(dplyr::desc(tox_grade)) %>%
-          `colnames<-`(col_labels(dataname, fill = TRUE)[vars])
-
-        # Exception for columns of type difftime that is not supported by as_listing
-        table <- dplyr::mutate(
-          table,
-          dplyr::across(
-            dplyr::where(~ inherits(., what = "difftime")), ~ as.double(., units = "auto")
+          `colnames<-`(col_labels(dataname, fill = TRUE)[vars]) %>%
+          dplyr::mutate( # Exception for columns of type difftime that is not supported by as_listing
+            dplyr::across(
+              dplyr::where(~ inherits(., what = "difftime")), ~ as.double(., units = "auto")
+            )
           )
-        )
         table <- rlistings::as_listing(
           table,
           key_cols = NULL,