Handle reactivity for disabled in modules

NEWS.md

@@ -1,5 +1,8 @@
 # teal.widgets 0.2.0.9000
 
+### Breaking change
+* Added `ignoreInit` argument to `verbatim_popup_srv`. By default this is set to `TRUE`. To use previous behavior set it to `FALSE`.
+
 # teal.widgets 0.2.0
 
 ### Breaking changes

R/verbatim_popup.R

@@ -31,7 +31,7 @@ verbatim_popup_ui <- function(id, button_label, ...) {
     shiny::singleton(
       shiny::tags$head(shiny::includeScript(system.file("js/verbatim_popup.js", package = "teal.widgets")))
     ),
-    shiny::actionButton(ns("button"), label = button_label, ...)
+    shiny::uiOutput(ns("container"))
   )
 }
 
@@ -44,16 +44,21 @@ verbatim_popup_ui <- function(id, button_label, ...) {
 #' @param style (`logical(1)`) whether to style the `verbatim_content` using `styler::style_text`.
 #' If `verbatim_content` is a `condition` or `reactive` holding `condition` then this argument is ignored
 #' @param disabled (`reactive(1)`) the `shiny` reactive value holding a `logical`. The popup button is disabled
-#' when the flag is `TRUE` and enabled otherwise
-#'
+#' when the flag is `TRUE` and enabled otherwise.
+#' In order for this to be used you need to have `shinyjs::useShinyjs()` in the `UI` of your application.
 verbatim_popup_srv <- function(id, verbatim_content, title, style = FALSE, disabled = shiny::reactiveVal(FALSE)) {
   checkmate::assert_string(id)
   checkmate::assert_string(title)
   checkmate::assert_flag(style)
   checkmate::assert_class(disabled, classes = "reactive")
   moduleServer(id, function(input, output, session) {
     ns <- session$ns
-    disabled_flag_observer(disabled, "button")
+
+    output$container <- renderUI({
+      disabled_flag_observer(disabled, "button")
+      shiny::actionButton(session$ns("button"), label = "my label")
+    })
+
     modal_content <- format_content(verbatim_content, style)
     button_click_observer(
       click_event = shiny::reactive(input$button),
@@ -82,7 +87,8 @@ disabled_flag_observer <- function(disabled_flag, button_id) {
       } else {
         shinyjs::enable(button_id)
       }
-    }
+    },
+    ignoreInit = ignoreInit
   )
 }