Merge pull request #1097 from pharmaverse/886-r-script-with-the-custom-time-duplicate-management

Consider time duplicates in R-script

Author: Gero1999

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: aNCA
 Title: (Pre-)Clinical NCA in a Dynamic Shiny App
-Version: 0.1.0.9110
+Version: 0.1.0.9111
 Authors@R: c(
     person("Ercan", "Suekuer", email = "ercan.suekuer@roche.com", role = "aut",
            comment = c(ORCID = "0009-0001-1626-1526")),

R/get_session_code.R

@@ -253,7 +253,8 @@ get_settings_code <- function(
     slope_rules = settings[["slope_rules"]],
     data_path = data_path,
     mapping = mapping,
-    ratio_table = ratio_table
+    ratio_table = ratio_table,
+    time_duplicate_rows = NULL
   )
   get_code(
     template_path = template_path,

inst/shiny/modules/tab_data/data_mapping.R

@@ -305,6 +305,9 @@ data_mapping_server <- function(id, adnca_data, trigger) {
     # Check for blocking duplicates using annotate_duplicates()
     df_duplicates <- reactiveVal(NULL)
     resolved_time_duplicate_rows <- reactiveVal(NULL)
+    observe({
+      session$userData$time_duplicate_rows <- resolved_time_duplicate_rows()
+    })
 
     processed_data <- reactive({
       req(mapped_data())

inst/www/templates/script_template.R

@@ -15,6 +15,7 @@ adnca_data <- read_pk(data_path)
 mapping <- settings_list$mapping
 names(mapping) <- gsub("select_", "", names(mapping))
 applied_filters <- settings_list$applied_filters
+time_duplicate_rows <- settings_list$time_duplicate_rows
 
 int_parameters <- settings_list$settings$int_parameters
 units_table <- settings_list$units_table
@@ -28,7 +29,8 @@ pknca_obj <- adnca_data %>%
   # Preprocess raw data and create the PKNCA object
   PKNCA_create_data_object(
     mapping = mapping,
-    applied_filters = applied_filters
+    applied_filters = applied_filters,
+    time_duplicate_rows = time_duplicate_rows
   ) %>%
 
   # Setup basic settings