Merge pull request #12 from timelyportfolio/feature/gadget

Feature - shiny gadget

Author: timelyportfolio

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: listviewer
 Type: Package
 Title: 'htmlwidget' for Interactive Views of R Lists
-Version: 1.0
-Date: 2016-06-14
+Version: 1.1
+Date: 2016-06-15
 Authors@R: c(
     person("Jos", "de Jong", role = c("aut", "cph"), comment = "jsoneditor.js library in htmlwidgets/jsoneditor, http://github.com/josdejong/jsoneditor/" ),
     person("Kenton","Russell", role = c("aut","cre"), comment = "R interface" , email = "[email protected]" )
@@ -16,5 +16,5 @@ LazyData: TRUE
 URL: https://github.com/timelyportfolio/listviewer
 BugReports: https://github.com/timelyportfolio/listviewer/issues
 Imports: htmlwidgets
-Suggests: htmltools, jsonlite, shiny
+Suggests: htmltools, jsonlite, miniUI, shiny
 RoxygenNote: 5.0.1

NAMESPACE

@@ -2,5 +2,6 @@
 
 export(jsonedit)
 export(jsoneditOutput)
+export(jsonedit_gadget)
 export(renderJsonedit)
 import(htmlwidgets)

NEWS.md

@@ -1,3 +1,7 @@
+# listviewer 1.1
+
+* add shiny gadget functionality with `jsonedit_gadget`
+
 # listviewer 1.0
 
 * Submit to CRAN.

R/jsonedit_gadget.R

@@ -0,0 +1,44 @@
+#' Shiny Gadget for 'jsonedit'
+#'
+#' Provides a \href{http://shiny.rstudio.com/articles/gadgets.html}{Shiny gadget}
+#'   interface for \code{jsonedit} to interactively edit and return the
+#'   changes for use in R.
+#'
+#' @param height,width any valid \code{CSS} size unit for the
+#'          height and width of the gadget
+#' @param ... arguments for \code{\link{jsonedit}}
+#'
+#' @example ./inst/examples/examples_gadget.R
+#' @export
+jsonedit_gadget <- function(..., height = NULL, width = NULL) {
+  # modeled after chemdoodle gadget
+  #  https://github.com/zachcp/chemdoodle/blob/master/R/chemdoodle_sketcher_gadgets.R
+  stopifnot(requireNamespace("miniUI"), requireNamespace("shiny"))
+  ui <- miniUI::miniPage(
+    miniUI::miniContentPanel(jsonedit(...), height=NULL, width=NULL),
+
+    miniUI::gadgetTitleBar("Edit Data", right = miniUI::miniTitleBarButton("done", "Done", primary = TRUE)),
+
+    htmltools::tags$script('
+document.getElementById("done").onclick = function() {
+  var listdata = JSON.parse(
+    HTMLWidgets.find(".jsonedit").editor.getText()
+  );
+  Shiny.onInputChange("jsoneditordata", listdata);
+};
+'
+    )
+  )
+
+  server <- function(input, output, session) {
+    shiny::observeEvent(input$done, { shiny::stopApp(input$jsoneditordata) })
+    shiny::observeEvent(input$cancel, { shiny::stopApp (NULL) })
+  }
+
+  shiny::runGadget(
+    ui,
+    server,
+    viewer =  shiny::dialogViewer("View and Edit Data"),
+    stopOnCancel = FALSE
+  )
+}

inst/.gitignore

@@ -0,0 +1 @@
+gs_wsfeed.rds

inst/examples/examples_gadget.R

@@ -0,0 +1,8 @@
+library(listviewer)
+
+jsonedit_gadget(
+  structure(
+    as.list(1:4),
+    names=letters[1:4]
+  )
+)