Ensure lab dates are converted to "Date" class

Author: luffmark

DESCRIPTION

@@ -18,7 +18,6 @@ Imports:
     dv.manager (>= 2.1.4),
     ggiraph,
     ggplot2,
-    magrittr (>= 2.0.3),
     rlang (>= 1.1.2),
     shiny (>= 1.8.0),
     shinyWidgets,

R/helper_functions.R

@@ -72,6 +72,9 @@ prepare_initial_data <- function(dataset_list,
     dplyr::slice_max(.data[[lb_result_var]], n = 1, with_ties = FALSE) |>
     dplyr::ungroup()
 
+  # Ensure lab date variable is converted to "Date" class
+  combined_dataset[[lb_date_var]] <- as.Date(combined_dataset[[lb_date_var]])
+
   return(combined_dataset)
 }
 

R/mock_edish.R

@@ -42,13 +42,15 @@ mock_edish_mm <- function() {
       lab_dataset_name = "lb",
       arm_default_vals = c("Xanomeline Low Dose", "Placebo"),
       baseline_visit_val = "SCREENING 1",
-      lb_date_var = "ADT"
+      lb_date_var = "ADT",
+      window_days = 30
     )
   )
 
   dv.manager::run_app(
     data = list("demo" = list("dm" = dm, "lb" = lb)),
     module_list = module_list,
+    filter_type = "datasets",
     filter_data = "dm"
   )
 }