a_subset bug fix

pfizer-opensource · Sep 23, 2024 · 84cf453 · 84cf453
1 parent 49b7179
commit 84cf453
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/R/mod_generic_filters.R b/R/mod_generic_filters.R
@@ -309,14 +309,19 @@ mod_generic_filters_server <-
 
       observe({
         req(domain())
-        req(repName() %in% c("eDISH_plot"))
+        if (repName() == "eDISH_plot") {
+          text <- "PARAMCD %in% c('ALT', 'AST', 'BILI')"
+        } else {
+          text <- "USUBJID != ''"
+        }
         updateTextInput(
           session,
           "a_subset",
           "Analysis Subset",
-          "PARAMCD %in% c('ALT', 'AST', 'BILI')"
+          text
         )
-      })
+      }) %>%
+        bindEvent(repName())
 
       # observer to control showing/hiding inputs based on report selection
       observe({

diff --git a/R/mod_goutput.R b/R/mod_goutput.R
@@ -280,6 +280,7 @@ mod_goutput_server <- function(id, sourcedata, repName, filters, process_btn) {
 
     observe({
       req(filters()$ae_pre)
+      req(tolower(repName()) %in% c("edish_plot"))
 
       series_opts <- plot_aes_opts(
         filters()$ae_pre,