provide elementId as argument to jsonedit to help solve #19

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: listviewer
 Type: Package
 Title: 'htmlwidget' for Interactive Views of R Lists
-Version: 1.3
-Date: 2016-07-08
+Version: 1.4.0
+Date: 2016-10-31
 Authors@R: c(
     person("Jos", "de Jong", role = c("aut", "cph"), comment = "jsoneditor.js library in htmlwidgets/jsoneditor, http://github.com/josdejong/jsoneditor/" ),
     person("Javier"," Marquez", role = c("aut", "cph"), comment = "react-json library in htmlwidgets/react-json, https://github.com/arqex/reactjson"),

NEWS.md

@@ -1,3 +1,11 @@
+# listviewer 1.4.0
+
+* add `elementId` to the `jsonedit` function
+
+# listviewer 1.3
+
+* add [react-json](https://github.com/arqex/react-json) as an alternate list viewer
+
 # listviewer 1.2
 
 * add RStudio addin capabilities

R/jsonedit.R

@@ -17,6 +17,9 @@
 #'          in favor of specific, more self-documenting and helpful arguments.
 #' @param width integer in pixels defining the width of the \code{div} container.
 #' @param height integer in pixels defining the height of the \code{div} container.
+#' @param elementId character to specify valid \code{CSS} id of the
+#'          htmlwidget for special situations in which you want a non-random
+#'          identifier.
 #' @examples
 #'    library(listviewer)
 #'
@@ -54,6 +57,7 @@ jsonedit <- function(
     , ...
     , width = NULL
     , height = NULL
+    , elementId = NULL
 ) {
 
   # to avoid toJSON keep_vec_names warnings
@@ -87,7 +91,8 @@ jsonedit <- function(
     x,
     width = width,
     height = height,
-    package = 'listviewer'
+    package = 'listviewer',
+    elementId = elementId
   )
 }