fix: value was 2 not 1 in main

Author: averissimo

R/tm_missing_data.R

@@ -716,10 +716,11 @@ srv_missing_data <- function(id,
       n <- length(x)
       idx <- max(1, n - 10)
       prev_value <- isolate(input$combination_cutoff)
-      value <- `if`(
-        is.null(prev_value) || prev_value > max(x) || prev_value < min(x),
-        sort(x, partial = idx)[idx], prev_value
-      )
+      value <- if (is.null(prev_value) || prev_value > max(x) || prev_value < min(x)) {
+        sort(x, partial = idx)[idx]
+      } else {
+        prev_value
+      }
 
       teal.widgets::optionalSliderInputValMinMax(
         ns("combination_cutoff"),

tests/testthat/test-shinytest2-tm_misssing_data.R

@@ -109,7 +109,7 @@ test_that("e2e - tm_missing_data: Check default settings and visibility of the c
     )
   )
 
-  testthat::expect_equal(app_driver$get_active_module_input("iris-combination_cutoff"), 1L)
+  testthat::expect_equal(app_driver$get_active_module_input("iris-combination_cutoff"), 2L)
   app_driver$set_active_module_input("iris-combination_cutoff", 10L)
   app_driver$expect_no_validation_error()