Merge pull request #18 from mauromiguelm/bug-shinyalert

Temporarily fix conflicts with shinyalert/shinyvalidate

inst/app/app-dev.R

@@ -15,6 +15,7 @@ ui <- fluidPage(
     theme = bslib::bs_theme(version = 5L),
     # add button
     actionButton("show_wizard", "Show wizard"),
+    actionButton("show_shinyalert", "Show shinyalert"),
     wizard(
       modal = TRUE,
       lock_start = TRUE,
@@ -106,6 +107,14 @@ server <- function(input, output, session) {
     print("reset wizard")
     wizardR::reset("my_modal")
   })
+
+  observeEvent(input$show_shinyalert, {
+    shinyalert::shinyalert(
+      title = "Hello",
+      text = "This is a shinyalert",
+      type = "success"
+    )
+  })
 }
 
 shinyApp(ui, server)

inst/main.js

@@ -11,10 +11,18 @@ $.extend(wizard, {
 
     let args = $(el).data("configuration");
 
+    // check if wizard is initialized, return if yes
+    //TODO debug why shinyalert is causing the wizard to re-initialize
+    if ($(el).data("wizard")) {
+      return;
+    }
+
+
     const wizard = new Wizard(args);
 
     wizard.init();
 
+
     // expose wizard.lock function
     this.lock = function() {
       wizard.lock();
@@ -58,6 +66,7 @@ $.extend(wizard, {
     } else if (msg === "reset") {
       this.reset();
     }
+    //TODO understand why message show is not being received
     //  else if (msg.type === "show") {
     //   var modal = bootstrap.Modal.getOrCreateInstance(
     //     document.getElementById('wizard-modal-' + el.id), {}