namespacing conditional panels!!!

rstudio/shiny-examples@2505726 + large discussion in rstudio/shiny#1735
maximesunnen · Apr 6, 2023 · e7b1244 · e7b1244
1 parent 01a9db2
commit e7b1244
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/mod_gate.R b/R/mod_gate.R
@@ -20,7 +20,15 @@ mod_gate_ui <- function(id){
                uiOutput(ns("gfp_bin_1")),
                uiOutput(ns("gfp_bin_2")),
                uiOutput(ns("gfp_bin_3")),
-               actionButton(inputId = ns("add_input"), label = "Add GFP bins", icon("plus"))
+               actionButton(inputId = ns("add_input"), label = "Add GFP bins", icon("plus")),
+
+               conditionalPanel(condition = "input.add_input == 1",
+                               ns = ns,
+                               checkboxInput(ns("headsonly"), "This text should...."))
+
+
+
+
 
              ),