Merge branch 'main' into 1187_decorate_output@main

insightsengineering · Dec 5, 2024 · e3be031 · e3be031
2 parents cbb58b7 + 556a6a2
commit e3be031
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: teal.modules.clinical
 Title: 'teal' Modules for Standard Clinical Outputs
-Version: 0.9.1.9036
-Date: 2024-11-29
+Version: 0.9.1.9037
+Date: 2024-12-05
 Authors@R: c(
     person("Joe", "Zhu", , "[email protected]", role = c("aut", "cre")),
     person("Jana", "Stoilova", , "[email protected]", role = "aut"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# teal.modules.clinical 0.9.1.9036
+# teal.modules.clinical 0.9.1.9037
 
 ### Enhancements
 * Added `teal.logger` functionality for logging changes in shiny inputs in all modules.

diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R
@@ -52,8 +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])
-
+          `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,