clean up; add documentation to lock and unlock functions

R/utils.R

@@ -1,3 +1,9 @@
+#' @title Lock wizard
+#' 
+#' Server-side function to lock the wizard.
+#' 
+#' @param id wizard id
+#' @param session shiny session
 #' @export
 lock <- function(
     id,
@@ -6,7 +12,12 @@ lock <- function(
     session$sendInputMessage(id, "lock")
 }
 
-
+#' @title Unlock wizard
+#' 
+#' Server-side function to unlock the wizard.
+#' 
+#' @param id wizard id
+#' @param session shiny session
 #' @export
 unlock <- function(
     id,

inst/main.js

@@ -45,15 +45,6 @@ $.extend(wizard, {
   },
 
   setValue: function(el, value) {
-    // TODO: for this to actually work, I think we'd need to include all the
-    // wizard's configuration. This would be a lot better/easier if wizardJS
-    // offered a method specifically for updating the current step (instead of
-    // this hacky way of doing it via re-initialization) 
-    //
-    // var w = this.initialize(el); 
-    // w.update({"current_step": value});
-
-    // run lock function
 
     if (value === "lock") {
       this.lock();