feat: add log-points for NCA user input changes

inst/shiny/modules/tab_nca/setup/data_imputation.R

@@ -196,6 +196,15 @@ data_imputation_server <- function(id, settings_override) {
       }
     })
 
+    observeEvent(input$select_blq_strategy, {
+      log_info("BLQ imputation strategy changed: ", input$select_blq_strategy)
+    }, ignoreInit = TRUE)
+
+    observeEvent(input$should_impute_c0, {
+      state <- if (isTRUE(input$should_impute_c0)) "enabled" else "disabled"
+      log_info("Start concentration imputation ", state)
+    }, ignoreInit = TRUE)
+
     blq_imputation_rule <- reactive({
       req(input$select_blq_strategy)
       rule_list <- switch(input$select_blq_strategy,

inst/shiny/modules/tab_nca/setup/general_exclusions.R

@@ -131,6 +131,7 @@ general_exclusions_server <- function(
 
         xbtn_counter(max(new_ids))
         exclusion_list(rehydrated_list)
+        log_info("Exclusions restored from settings: ", length(overrides), " rules loaded")
       }
     })
 
@@ -156,6 +157,21 @@ general_exclusions_server <- function(
 
     # Add a new exclusion when the Add button is pressed
     observeEvent(input$add_exclusion_reason, {
+      rows_sel <- getReactableState("conc_table-table", "selected")
+      reason <- input$exclusion_reason
+      nca_checked <- isTRUE(input$cb_manual_nca)
+      tlg_checked <- isTRUE(input$cb_tlg)
+
+      if (length(rows_sel) > 0 && nzchar(reason) && (nca_checked || tlg_checked)) {
+        type_label <- if (nca_checked && tlg_checked) "NCA + TLG"
+          else if (nca_checked) "NCA"
+          else "TLG"
+        log_info(
+          "Exclusion added: ", length(rows_sel), " rows, type=", type_label,
+          ", reason='", reason, "'"
+        )
+      }
+
       .handle_add_exclusion(
         input, session, exclusion_list, xbtn_counter
       )
@@ -167,6 +183,7 @@ general_exclusions_server <- function(
       lapply(lst, function(item) {
         xbtn_id <- item$xbtn_id
         observeEvent(input[[xbtn_id]], {
+          log_info("Exclusion removed: reason='", item$reason, "'")
           current <- exclusion_list()
           exclusion_list(
             Filter(function(x) x$xbtn_id != xbtn_id, current)

inst/shiny/modules/tab_nca/setup/manual_slopes_table.R

@@ -93,7 +93,7 @@ manual_slopes_table_server <- function(
 
     # Add a new row to the table when the user clicks the add button
     observeEvent(input$add_rule, {
-      log_trace("{id}: adding manual slopes row")
+      log_trace("Slope selector: adding manual slope rule")
       first_group <- slopes_pknca_groups()[1, ]
       time_col <- pknca_data()$conc$columns$time
       new_row <- cbind(
@@ -126,7 +126,7 @@ manual_slopes_table_server <- function(
 
     # Remove selected rows from the table when the user clicks the remove button
     observeEvent(input$remove_rule, {
-      log_trace("{id}: removing manual slopes row")
+      log_trace("Slope selector: removing manual slope rule")
       selected <- getReactableState("manual_slopes", "selected")
       req(selected)
       edited_slopes <- manual_slopes()[-selected, ]

inst/shiny/modules/tab_nca/setup/parameter_selection.R

@@ -287,6 +287,9 @@ parameter_selection_server <- function(id, processed_pknca_data, parameter_overr
           n_params <- if (is.null(params)) 0 else length(params)
 
           log_info("Parameter selection for '{study_type}': {n_params} parameters selected.")
+          if (n_params > 0) {
+            log_debug("Parameters for '", study_type, "': ", paste(params, collapse = ", "))
+          }
         }, ignoreNULL = FALSE, ignoreInit = TRUE)
       })
     })

inst/shiny/modules/tab_nca/setup/settings.R

@@ -288,6 +288,9 @@ settings_server <- function(id, data, adnca_data, settings_override) {
         available_choices = profile_choices,
         override_val = settings$profile
       )
+      if (length(target_profile) > 0 && !anyNA(target_profile)) {
+        log_info("NCA profile selection changed: ", paste(target_profile, collapse = ", "))
+      }
       updatePickerInput(
         session, "select_profile",
         choices = profile_choices, selected = target_profile
@@ -301,6 +304,8 @@ settings_server <- function(id, data, adnca_data, settings_override) {
       updating_filters(TRUE)
       on.exit(updating_filters(FALSE))
 
+      log_info("Analyte selection changed: ", paste(input$select_analyte, collapse = ", "))
+
       settings <- .consume_settings()
 
       all_pcspec <- unique(data()$PCSPEC) %>% na.omit()
@@ -335,6 +340,8 @@ settings_server <- function(id, data, adnca_data, settings_override) {
       updating_filters(TRUE)
       on.exit(updating_filters(FALSE))
 
+      log_info("Specimen selection changed: ", paste(input$select_pcspec, collapse = ", "))
+
       settings <- .consume_settings()
 
       all_analyte <- unique(data()$PARAM) %>% na.omit()
@@ -356,6 +363,15 @@ settings_server <- function(id, data, adnca_data, settings_override) {
       .update_profile(settings)
     })
 
+    # Log method and min half-life points changes
+    observeEvent(input$method, {
+      log_info("Extrapolation method changed: ", input$method)
+    }, ignoreInit = TRUE)
+
+    observeEvent(input$min_hl_points, {
+      log_info("Min. half-life points changed: ", input$min_hl_points)
+    }, ignoreInit = TRUE)
+
     # Include keyboard limits for the settings GUI display
 
     # Keyboard limits for the setting thresholds
@@ -365,6 +381,19 @@ settings_server <- function(id, data, adnca_data, settings_override) {
     limit_input_value(input, session, "LAMZSPN_threshold", min = 0, lab = "LAMZSPN")
     limit_input_value(input, session, "min_hl_points", max = 10, min = 2, lab = "Min. HL Points")
 
+    # Log flag rule changes
+    lapply(c("R2ADJ", "R2", "AUCPEO", "AUCPEP", "LAMZSPN"), function(flag) {
+      rule_id <- paste0(flag, "_rule")
+      threshold_id <- paste0(flag, "_threshold")
+      observeEvent(input[[rule_id]], {
+        state <- if (input[[rule_id]]) "enabled" else "disabled"
+        log_info("Flag rule ", flag, " ", state)
+      }, ignoreInit = TRUE)
+      observeEvent(input[[threshold_id]], {
+        log_info("Flag rule ", flag, " threshold changed: ", input[[threshold_id]])
+      }, ignoreInit = TRUE)
+    })
+
     # Reactive value to store the partial intervals data table
     # Define the parameters that can be used for partial area calculations
     PARTIAL_INT_PARAMS <- metadata_nca_parameters %>%

inst/shiny/modules/tab_nca/setup/slope_selector.R

@@ -272,6 +272,11 @@ slope_selector_server <- function( # nolint
     observeEvent(manual_slopes(), {
       req(manual_slopes())
 
+      n_rules <- nrow(manual_slopes())
+      n_excl <- sum(manual_slopes()$TYPE == "Exclusion", na.rm = TRUE)
+      n_incl <- n_rules - n_excl
+      log_info("Slope rules updated: ", n_rules, " total (", n_incl, " inclusions, ", n_excl, " exclusions)")
+
       # Update reactable with rules
       reactable::updateReactable(
         outputId = "manual_slopes",