Add default update*Input function to input scaffold

Author: alandipert

R/scaffold_input.R

@@ -24,6 +24,7 @@ scaffoldReactInput <- function(name, npmPkgs = NULL, edit = interactive()) {
     "boilerplate for input constructor",
     list(
       name = name,
+      capName = capitalize(name),
       package = package
     )
   )

inst/templates/input_r.txt

@@ -24,3 +24,14 @@ ${name}Input <- function(inputId, default = "") {
     tags$span
   )
 }
+
+#' <Add Title>
+#'
+#' <Add Description>
+#'
+#' @export
+update${capName}Input <- function(session, inputId, value, configuration = NULL) {
+  message <- list(value = value)
+  if (!is.null(configuration)) message$configuration <- configuration
+  session$sendInputMessage(inputId, message);
+}