898 save app state version 3

R/tm_a_gee.R

@@ -228,7 +228,7 @@ tm_a_gee <- function(label,
     aval_var = cs_to_des_select(aval_var, dataname = dataname)
   )
 
-  teal::module(
+  ans <- teal::module(
     label = label,
     server = srv_gee,
     ui = ui_gee,
@@ -245,6 +245,8 @@ tm_a_gee <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  attr(ans, "teal_bookmarkable") <- FALSE
+  ans
 }
 
 ui_gee <- function(id, ...) {
@@ -390,6 +392,8 @@ srv_gee <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    ns <- session$ns
+
     ## split_covariates ----
     observeEvent(input[[extract_input("cov_var", dataname)]],
       ignoreNULL = FALSE,
@@ -408,7 +412,7 @@ srv_gee <- function(id,
         teal.widgets::updateOptionalSelectInput(
           session,
           inputId = extract_input("split_covariates", dataname),
-          selected = split_covariates_selected
+          selected = restoreInput(ns(extract_input("split_covariates", dataname)), split_covariates_selected)
         )
       }
     )

R/tm_a_mmrm.R

@@ -579,7 +579,7 @@ tm_a_mmrm <- function(label,
     aval_var = cs_to_des_select(aval_var, dataname = dataname)
   )
 
-  module(
+  ans <- module(
     label = label,
     server = srv_mmrm,
     ui = ui_mmrm,
@@ -600,6 +600,8 @@ tm_a_mmrm <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  attr(ans, "teal_bookmarkable") <- NULL
+  ans
 }
 
 #' @keywords internal
@@ -846,6 +848,8 @@ srv_mmrm <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    ns <- session$ns
+
     # Reactive responsible for sending a disable/enable signal
     # to show R code and debug info buttons
     disable_r_code <- reactiveVal(FALSE)
@@ -863,7 +867,7 @@ srv_mmrm <- function(id,
       teal.widgets::updateOptionalSelectInput(
         session,
         inputId = extract_input("split_covariates", dataname),
-        selected = split_covariates_selected
+        selected = restoreInput(ns(extract_input("split_covariates", dataname)), split_covariates_selected)
       )
     })
 

R/tm_g_barchart_simple.R

@@ -174,7 +174,7 @@ tm_g_barchart_simple <- function(x = NULL,
   )
 
   ui_args <- as.list(environment())
-  module(
+  ans <- module(
     label = label,
     server = srv_g_barchart_simple,
     ui = ui_g_barchart_simple,
@@ -190,6 +190,8 @@ tm_g_barchart_simple <- function(x = NULL,
     ),
     datanames = "all"
   )
+  attr(ans, "teal_bookmarkable") <- TRUE
+  ans
 }
 
 #' @keywords internal

R/tm_g_ci.R

@@ -295,7 +295,7 @@ tm_g_ci <- function(label,
 
   args <- as.list(environment())
 
-  module(
+  ans <- module(
     label = label,
     server = srv_g_ci,
     server_args = list(
@@ -311,6 +311,8 @@ tm_g_ci <- function(label,
     ui_args = args,
     datanames = "all"
   )
+  attr(ans, "teal_bookmarkable") <- TRUE
+  ans
 }
 
 #' @keywords internal

R/tm_g_forest_rsp.R

@@ -368,7 +368,7 @@ tm_g_forest_rsp <- function(label,
     strata_var = cs_to_des_select(strata_var, dataname = parentname, multiple = TRUE)
   )
 
-  module(
+  ans <- module(
     label = label,
     ui = ui_g_forest_rsp,
     ui_args = c(data_extract_list, args),
@@ -388,6 +388,10 @@ tm_g_forest_rsp <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  # not bookmarkable b/c of arm_ref_comp_observer using teal.wigdets::draggable_buckets and JS therein
+  # https://github.com/insightsengineering/teal.widgets/issues/239
+  attr(ans, "teal_bookmarkable") <- FALSE
+  ans
 }
 
 #' @keywords internal
@@ -417,13 +421,7 @@ ui_g_forest_rsp <- function(id, ...) {
         data_extract_spec = a$aval_var,
         is_single_dataset = is_single_dataset_value
       ),
-      selectInput(
-        ns("responders"),
-        "Responders",
-        choices = c("CR", "PR"),
-        selected = c("CR", "PR"),
-        multiple = TRUE
-      ),
+      uiOutput(ns("container_responders")),
       teal.transform::data_extract_ui(
         id = ns("arm_var"),
         label = "Select Treatment Variable",
@@ -509,6 +507,8 @@ srv_g_forest_rsp <- function(id,
   checkmate::assert_class(isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    ns <- session$ns
+
     # Setup arm variable selection, default reference arms, and default
     # comparison arms for encoding panel
     iv_arm_ref <- arm_ref_comp_observer(
@@ -567,52 +567,48 @@ srv_g_forest_rsp <- function(id,
         teal.code::eval_code(code = as.expression(adsl_inputs()$expr))
     })
 
-    observeEvent(
-      eventExpr = c(
-        input[[extract_input("aval_var", "ADRS")]],
-        input[[extract_input("paramcd", paramcd$filter[[1]]$dataname, filter = TRUE)]]
-      ),
-      handlerExpr = {
-        req(anl_q())
-        anl <- anl_q()[["ANL"]]
-        aval_var <- anl_inputs()$columns_source$aval_var
-        paramcd_level <- unlist(anl_inputs()$filter_info$paramcd[[1]]$selected)
-        if (length(paramcd_level) == 0) {
-          return(NULL)
-        }
+    output$container_responders <- renderUI({
+      req(anl_q())
 
-        sel_param <- if (is.list(default_responses)) {
-          default_responses[[paramcd_level]]
-        } else {
-          default_responses
-        }
+      anl <- anl_q()[["ANL"]]
+      aval_var <- anl_inputs()$columns_source$aval_var
+      paramcd_level <- unlist(anl_inputs()$filter_info$paramcd[[1]]$selected)
 
+      req(length(paramcd_level) != 0)
 
-        common_rsp <- if (is.list(sel_param)) {
-          sel_param$rsp
-        } else {
-          sel_param
-        }
-        responder_choices <- if (length(aval_var) == 0) {
-          character(0)
-        } else {
-          if ("levels" %in% names(sel_param)) {
-            if (length(intersect(unique(anl[[aval_var]]), sel_param$levels)) > 1) {
-              sel_param$levels
-            } else {
-              union(anl[[aval_var]], sel_param$levels)
-            }
+      sel_param <- if (is.list(default_responses)) {
+        default_responses[[paramcd_level]]
+      } else {
+        default_responses
+      }
+
+      common_rsp <- if (is.list(sel_param)) {
+        sel_param$rsp
+      } else {
+        sel_param
+      }
+      responder_choices <- if (length(aval_var) == 0) {
+        character(0)
+      } else {
+        if ("levels" %in% names(sel_param)) {
+          if (length(intersect(unique(anl[[aval_var]]), sel_param$levels)) > 1) {
+            sel_param$levels
           } else {
-            unique(anl[[aval_var]])
+            union(anl[[aval_var]], sel_param$levels)
           }
+        } else {
+          unique(anl[[aval_var]])
         }
-        updateSelectInput(
-          session, "responders",
-          choices = responder_choices,
-          selected = intersect(responder_choices, common_rsp)
-        )
       }
-    )
+
+      selectInput(
+        ns("responders"),
+        "Responders",
+        choices = responder_choices,
+        selected = intersect(responder_choices, common_rsp),
+        multiple = TRUE
+      )
+    })
 
     # Prepare the analysis environment (filter data, check data, populate envir).
     validate_checks <- reactive({

R/tm_g_forest_tte.R

@@ -351,7 +351,7 @@ tm_g_forest_tte <- function(label,
     time_unit_var = cs_to_des_select(time_unit_var, dataname = dataname)
   )
 
-  module(
+  ans <- module(
     label = label,
     server = srv_g_forest_tte,
     ui = ui_g_forest_tte,
@@ -369,6 +369,10 @@ tm_g_forest_tte <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  # pending https://github.com/insightsengineering/teal.transform/issues/210
+  # likely also https://github.com/insightsengineering/teal.widgets/issues/239
+  attr(ans, "teal_bookmarkable") <- NULL
+  ans
 }
 
 #' @keywords internal

R/tm_g_ipp.R

@@ -337,7 +337,7 @@ tm_g_ipp <- function(label,
     paramcd = cs_to_des_filter(paramcd, dataname = dataname)
   )
 
-  module(
+  ans <- module(
     label = label,
     server = srv_g_ipp,
     ui = ui_g_ipp,
@@ -355,6 +355,8 @@ tm_g_ipp <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  attr(ans, "teal_bookmarkable") <- FALSE
+  ans
 }
 
 #' @keywords internal

R/tm_g_km.R

@@ -360,7 +360,7 @@ tm_g_km <- function(label,
     time_unit_var = cs_to_des_select(time_unit_var, dataname = dataname)
   )
 
-  module(
+  ans <- module(
     label = label,
     server = srv_g_km,
     ui = ui_g_km,
@@ -378,6 +378,10 @@ tm_g_km <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  # pending https://github.com/insightsengineering/teal.transform/issues/210
+  # likely also https://github.com/insightsengineering/teal.widgets/issues/239
+  attr(ans, "teal_bookmarkable") <- NULL
+  ans
 }
 
 #' @keywords internal

R/tm_g_lineplot.R

@@ -317,7 +317,7 @@ tm_g_lineplot <- function(label,
     paramcd = cs_to_des_select(paramcd, dataname = dataname)
   )
 
-  module(
+  ans <- module(
     label = label,
     server = srv_g_lineplot,
     ui = ui_g_lineplot,
@@ -335,6 +335,9 @@ tm_g_lineplot <- function(label,
     ),
     datanames = teal.transform::get_extract_datanames(data_extract_list)
   )
+  # pending https://github.com/insightsengineering/teal.transform/issues/210
+  attr(ans, "teal_bookmarkable") <- NULL
+  ans
 }
 
 #' @keywords internal