Merge pull request #21 from mauromiguelm/dev-locked-button-ux

Develop shiny ux interaction with locked next/previous buttons

.github/workflows/style.yaml

@@ -69,6 +69,8 @@ jobs:
             git commit ${FILES_TO_COMMIT[*]} -m "Style code (GHA)"
             git pull --ff-only
             git push origin
+            exit 0
           else
             echo "No changes to commit."
+            exit 0
           fi

R/utils.R

@@ -61,9 +61,8 @@ wizard_show <- function(
 #' @export
 reset <- function(
     id,
-    session = shiny::getDefaultReactiveDomain()
-    ){
-    if (missing(id)) stop("Missing `id`")
-
-    session$sendInputMessage(id, "reset")
-}
+    session = shiny::getDefaultReactiveDomain()) {
+  if (missing(id)) stop("Missing `id`")
+
+  session$sendInputMessage(id, "reset")
+}

inst/app/app-dev.R

@@ -108,6 +108,10 @@ server <- function(input, output, session) {
     wizardR::reset("my_modal")
   })
 
+  observeEvent(input$my_modal_locked,{
+    print("locked button clicked")
+  })
+
   observeEvent(input$show_shinyalert, {
     shinyalert::shinyalert(
       title = "Hello",

inst/main.js

@@ -182,6 +182,16 @@ $.extend(wizard, {
 
       callback(false);
     });
+
+
+    // set wz.lock event listener
+    el.addEventListener("wz.lock", function(e) {
+      let counter = $(el).data("lockCounter") || 0;
+      counter++;
+      $(el).data("lockCounter", counter);
+      Shiny.setInputValue(el.id + "_locked", counter);
+      callback(false);
+    });
   },
 
   unsubscribe: function(el) {