Contributor Code of Conduct
@@ -109,27 +53,33 @@Contributor Code of Conduct
Examples of unacceptable behavior by participants include the use of sexual language or imagery, derogatory comments or personal attacks, trolling, public or private harassment, insults, or other unprofessional conduct.
Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct. Project maintainers who do not follow the Code of Conduct may be removed from the project team.
Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by opening an issue or contacting one or more of the project maintainers.
-This Code of Conduct is adapted from the Contributor Covenant (http:contributor-covenant.org), version 1.0.0, available at http://contributor-covenant.org/version/1/0/0/
+This Code of Conduct is adapted from the Contributor Covenant (http:contributor-covenant.org), version 1.0.0, available at http://contributor-covenant.org/version/1/0/0/
License
@@ -108,22 +52,28 @@License
Authors
+ +Citation
+ Source:DESCRIPTION
+ -
-
-
-
Jos de Jong. Author, copyright holder. -
-
jsoneditor.js library in htmlwidgets/jsoneditor, http://github.com/josdejong/jsoneditor/
- -
-
Mac Gainer. Author, copyright holder. -
-
react-json-view library in htmlwidgets/react-json, https://github.com/mac-s-g/react-json-view
- -
-
Kent Russell. Author, maintainer. -
-
R interface
-
de Jong J, Gainer M, Russell K (2023). +listviewer: 'htmlwidget' for Interactive Views of R Lists. +R package version 4.0.0, https://github.com/timelyportfolio/listviewer. +
+@Manual{,
+ title = {listviewer: 'htmlwidget' for Interactive Views of R Lists},
+ author = {Jos {de Jong} and Mac { Gainer} and Kent Russell},
+ year = {2023},
+ note = {R package version 4.0.0},
+ url = {https://github.com/timelyportfolio/listviewer},
+}
`, then ``, etc.) that has more than one element. Defaults to 1 (for ``).
+ getTopLevel: function($scope) {
+ for (var i = 1; i <= 6; i++) {
+ var $headings = this.findOrFilter($scope, 'h' + i);
+ if ($headings.length > 1) {
+ return i;
+ }
+ }
+
+ return 1;
+ },
+
+ // returns the elements for the top level, and the next below it
+ getHeadings: function($scope, topLevel) {
+ var topSelector = 'h' + topLevel;
+
+ var secondaryLevel = topLevel + 1;
+ var secondarySelector = 'h' + secondaryLevel;
+
+ return this.findOrFilter($scope, topSelector + ',' + secondarySelector);
+ },
+
+ getNavLevel: function(el) {
+ return parseInt(el.tagName.charAt(1), 10);
+ },
+
+ populateNav: function($topContext, topLevel, $headings) {
+ var $context = $topContext;
+ var $prevNav;
+
+ var helpers = this;
+ $headings.each(function(i, el) {
+ var $newNav = helpers.generateNavItem(el);
+ var navLevel = helpers.getNavLevel(el);
+
+ // determine the proper $context
+ if (navLevel === topLevel) {
+ // use top level
+ $context = $topContext;
+ } else if ($prevNav && $context === $topContext) {
+ // create a new level of the tree and switch to it
+ $context = helpers.createChildNavList($prevNav);
+ } // else use the current $context
+
+ $context.append($newNav);
+
+ $prevNav = $newNav;
+ });
+ },
+
+ parseOps: function(arg) {
+ var opts;
+ if (arg.jquery) {
+ opts = {
+ $nav: arg
+ };
+ } else {
+ opts = arg;
+ }
+ opts.$scope = opts.$scope || $(document.body);
+ return opts;
+ }
+ },
+
+ // accepts a jQuery object, or an options object
+ init: function(opts) {
+ opts = this.helpers.parseOps(opts);
+
+ // ensure that the data attribute is in place for styling
+ opts.$nav.attr('data-toggle', 'toc');
+
+ var $topContext = this.helpers.createChildNavList(opts.$nav);
+ var topLevel = this.helpers.getTopLevel(opts.$scope);
+ var $headings = this.helpers.getHeadings(opts.$scope, topLevel);
+ this.helpers.populateNav($topContext, topLevel, $headings);
+ }
+ };
+
+ $(function() {
+ $('nav[data-toggle="toc"]').each(function(i, el) {
+ var $nav = $(el);
+ Toc.init($nav);
+ });
+ });
+})();
diff --git a/docs/index.html b/docs/index.html
index 47a66ef..eec1531 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -5,23 +5,26 @@
-'htmlwidget' for Interactive Views of R Lists • listviewer
-
-
-
-
+htmlwidget for Interactive Views of R Lists • listviewer
+
+
+
+
+
+
-
+ lists. The function reactjson() requires a package
+ reactR that can be installed from CRAN or <https://github.com/timelyportfolio/reactR>.">
-
+
+
+
@@ -34,18 +37,12 @@
-
-
-
+
+
@@ -69,201 +66,226 @@
+
-
-
-A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
-
-
-install
+
+
+
+A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
+
+install
+
CRAN
-
+
+install.packages("listviewer")
Development Version
-
+
+devtools::install_github("timelyportfolio/listviewer")
-
-
-jsoneditor
-jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
-# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-jsonedit(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)
-
-
-
-See the above interactive view of par for yourself.
+
+jsoneditor
+
+jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
+
+# using the data from the jsoneditor simple example
+# in R list form
+
+library(listviewer)
+
+jsonedit(
+ list(
+ array = c(1,2,3)
+ ,boolean = TRUE
+ ,null = NULL
+ ,number = 123
+ ,object = list( a="b", c="d" )
+ ,string = "Hello World"
+ )
+)
+
+# also works with data.frames
+jsonedit( mtcars )
+
+
+See the above interactive view of par for yourself.
I got this idea courtesy of @jasonpbecker on Twitter. htmlwidgets dependencies are defined by YAML. Let’s see the dependencies for jsonedit.
-
+
+jsonedit(
+ yaml.load_file(system.file("htmlwidgets/jsonedit.yaml",package="listviewer"))
+)
How about topojson?
-### experiment with topojson
-library(httr)
-library(pipeR)
-library(listviewer)
-
-# topojson for Afghanistan
-url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
-
-url_path %>>%
- GET %>>%
- content( as = "text") %>>%
- jsonedit
+
+### experiment with topojson
+library(httr)
+library(pipeR)
+library(listviewer)
+
+# topojson for Afghanistan
+url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
+
+url_path %>>%
+ GET %>>%
+ content( as = "text") %>>%
+ jsonedit
-
-
-reactjson
-react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
-# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-reactjson(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)
+
+reactjson
+
+react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
+
-
-
-Shiny example
+
+Shiny example
+
listviewer works with Shiny but the implementation is crude and likely to change for jsonedit while reactjson integration is much better. If you really want to use jsonedit with Shiny, I would recommend debouncing the change callback. Here are examples with each.
-library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- jsoneditOutput( "jsed" )
- )
-)
-
-server <- function(input,output){
- output$jsed <- renderJsonedit({
- jsonedit(
- as.list( .GlobalEnv )
- ,"change" = htmlwidgets::JS('function(){
- console.log( event.currentTarget.parentNode.editor.get() )
- }')
- )
-
- })
-}
-
-runApp( list( ui = ui, server = server ) )
-library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- reactjsonOutput( "rjed" )
- )
-)
-
-server <- function(input,output){
- output$rjed <- renderReactjson({
- reactjson( as.list( .GlobalEnv ) )
- })
-
- observeEvent(input$rjed_edit, {
- str(input$rjed_edit, max.level=2)
- })
-}
-
-runApp( list( ui = ui, server = server ) )
+
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ jsoneditOutput( "jsed" )
+ )
+)
+
+server <- function(input,output){
+ output$jsed <- renderJsonedit({
+ jsonedit(
+ jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows")
+ ,"onChange" = htmlwidgets::JS('function(after, before, patch){
+ console.log( after.json )
+ }')
+ )
+
+ })
+}
+
+runApp( list( ui = ui, server = server ) )
+
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ reactjsonOutput( "rjed" )
+ )
+)
+
+server <- function(input,output){
+ output$rjed <- renderReactjson({
+ reactjson( jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows") )
+ })
+
+ observeEvent(input$rjed_edit, {
+ str(input$rjed_edit, max.level=2)
+ })
+}
+
+runApp( list( ui = ui, server = server ) )
-
-
-code of conduct
-Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
+
+code of conduct
+
+Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
-
`).
+ getTopLevel: function($scope) {
+ for (var i = 1; i <= 6; i++) {
+ var $headings = this.findOrFilter($scope, 'h' + i);
+ if ($headings.length > 1) {
+ return i;
+ }
+ }
+
+ return 1;
+ },
+
+ // returns the elements for the top level, and the next below it
+ getHeadings: function($scope, topLevel) {
+ var topSelector = 'h' + topLevel;
+
+ var secondaryLevel = topLevel + 1;
+ var secondarySelector = 'h' + secondaryLevel;
+
+ return this.findOrFilter($scope, topSelector + ',' + secondarySelector);
+ },
+
+ getNavLevel: function(el) {
+ return parseInt(el.tagName.charAt(1), 10);
+ },
+
+ populateNav: function($topContext, topLevel, $headings) {
+ var $context = $topContext;
+ var $prevNav;
+
+ var helpers = this;
+ $headings.each(function(i, el) {
+ var $newNav = helpers.generateNavItem(el);
+ var navLevel = helpers.getNavLevel(el);
+
+ // determine the proper $context
+ if (navLevel === topLevel) {
+ // use top level
+ $context = $topContext;
+ } else if ($prevNav && $context === $topContext) {
+ // create a new level of the tree and switch to it
+ $context = helpers.createChildNavList($prevNav);
+ } // else use the current $context
+
+ $context.append($newNav);
+
+ $prevNav = $newNav;
+ });
+ },
+
+ parseOps: function(arg) {
+ var opts;
+ if (arg.jquery) {
+ opts = {
+ $nav: arg
+ };
+ } else {
+ opts = arg;
+ }
+ opts.$scope = opts.$scope || $(document.body);
+ return opts;
+ }
+ },
+
+ // accepts a jQuery object, or an options object
+ init: function(opts) {
+ opts = this.helpers.parseOps(opts);
+
+ // ensure that the data attribute is in place for styling
+ opts.$nav.attr('data-toggle', 'toc');
+
+ var $topContext = this.helpers.createChildNavList(opts.$nav);
+ var topLevel = this.helpers.getTopLevel(opts.$scope);
+ var $headings = this.helpers.getHeadings(opts.$scope, topLevel);
+ this.helpers.populateNav($topContext, topLevel, $headings);
+ }
+ };
+
+ $(function() {
+ $('nav[data-toggle="toc"]').each(function(i, el) {
+ var $nav = $(el);
+ Toc.init($nav);
+ });
+ });
+})();
diff --git a/docs/index.html b/docs/index.html
index 47a66ef..eec1531 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -5,23 +5,26 @@
-'htmlwidget' for Interactive Views of R Lists • listviewer
-
-
-
-
+htmlwidget for Interactive Views of R Lists • listviewer
+
+
+
+
+
+
-
+ lists. The function reactjson() requires a package
+ reactR that can be installed from CRAN or <https://github.com/timelyportfolio/reactR>.">
-
+
+
+
@@ -34,18 +37,12 @@
-
-
-
+
+
@@ -69,201 +66,226 @@
+
-
-
-A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
-
-
-install
+
+
+
+A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
+
+install
+
CRAN
-
+
+install.packages("listviewer")
Development Version
-
+
+devtools::install_github("timelyportfolio/listviewer")
-
-
-jsoneditor
-jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
-# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-jsonedit(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)
-
-
-
-See the above interactive view of par for yourself.
+
+jsoneditor
+
+jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
+
+# using the data from the jsoneditor simple example
+# in R list form
+
+library(listviewer)
+
+jsonedit(
+ list(
+ array = c(1,2,3)
+ ,boolean = TRUE
+ ,null = NULL
+ ,number = 123
+ ,object = list( a="b", c="d" )
+ ,string = "Hello World"
+ )
+)
+
+# also works with data.frames
+jsonedit( mtcars )
+
+
+See the above interactive view of par for yourself.
I got this idea courtesy of @jasonpbecker on Twitter. htmlwidgets dependencies are defined by YAML. Let’s see the dependencies for jsonedit.
-
+
+jsonedit(
+ yaml.load_file(system.file("htmlwidgets/jsonedit.yaml",package="listviewer"))
+)
How about topojson?
-### experiment with topojson
-library(httr)
-library(pipeR)
-library(listviewer)
-
-# topojson for Afghanistan
-url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
-
-url_path %>>%
- GET %>>%
- content( as = "text") %>>%
- jsonedit
+
+### experiment with topojson
+library(httr)
+library(pipeR)
+library(listviewer)
+
+# topojson for Afghanistan
+url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
+
+url_path %>>%
+ GET %>>%
+ content( as = "text") %>>%
+ jsonedit
-
-
-reactjson
-react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
-# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-reactjson(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)
+
+reactjson
+
+react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
+
-
-
-Shiny example
+
+Shiny example
+
listviewer works with Shiny but the implementation is crude and likely to change for jsonedit while reactjson integration is much better. If you really want to use jsonedit with Shiny, I would recommend debouncing the change callback. Here are examples with each.
-library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- jsoneditOutput( "jsed" )
- )
-)
-
-server <- function(input,output){
- output$jsed <- renderJsonedit({
- jsonedit(
- as.list( .GlobalEnv )
- ,"change" = htmlwidgets::JS('function(){
- console.log( event.currentTarget.parentNode.editor.get() )
- }')
- )
-
- })
-}
-
-runApp( list( ui = ui, server = server ) )
-library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- reactjsonOutput( "rjed" )
- )
-)
-
-server <- function(input,output){
- output$rjed <- renderReactjson({
- reactjson( as.list( .GlobalEnv ) )
- })
-
- observeEvent(input$rjed_edit, {
- str(input$rjed_edit, max.level=2)
- })
-}
-
-runApp( list( ui = ui, server = server ) )
+
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ jsoneditOutput( "jsed" )
+ )
+)
+
+server <- function(input,output){
+ output$jsed <- renderJsonedit({
+ jsonedit(
+ jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows")
+ ,"onChange" = htmlwidgets::JS('function(after, before, patch){
+ console.log( after.json )
+ }')
+ )
+
+ })
+}
+
+runApp( list( ui = ui, server = server ) )
+
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ reactjsonOutput( "rjed" )
+ )
+)
+
+server <- function(input,output){
+ output$rjed <- renderReactjson({
+ reactjson( jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows") )
+ })
+
+ observeEvent(input$rjed_edit, {
+ str(input$rjed_edit, max.level=2)
+ })
+}
+
+runApp( list( ui = ui, server = server ) )
-
-
-code of conduct
-Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
+
+code of conduct
+
+Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
-
- - - + + @@ -69,201 +66,226 @@ +
A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
-install
+
A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides an interface to jsoneditor and react-json-view. listviewer is designed to support multiple interfaces.
install +
CRAN
- +
+install.packages("listviewer")Development Version
- +
+devtools::install_github("timelyportfolio/listviewer")-jsoneditor
-jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-jsonedit(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)See the above interactive view of par for yourself.
+jsoneditor +
+jsoneditor is a really well designed JSON interactive editor by Jos de Jong. Since most R data can be represented in JSON, we can use this great JavaScript library in R.
+# using the data from the jsoneditor simple example
+# in R list form
+
+library(listviewer)
+
+jsonedit(
+ list(
+ array = c(1,2,3)
+ ,boolean = TRUE
+ ,null = NULL
+ ,number = 123
+ ,object = list( a="b", c="d" )
+ ,string = "Hello World"
+ )
+)
+# also works with data.frames
+jsonedit( mtcars )See the above interactive view of par for yourself.
I got this idea courtesy of @jasonpbecker on Twitter. htmlwidgets dependencies are defined by YAML. Let’s see the dependencies for jsonedit.
+jsonedit(
+ yaml.load_file(system.file("htmlwidgets/jsonedit.yaml",package="listviewer"))
+)How about topojson?
### experiment with topojson
-library(httr)
-library(pipeR)
-library(listviewer)
-
-# topojson for Afghanistan
-url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
-
-url_path %>>%
- GET %>>%
- content( as = "text") %>>%
- jsonedit
+### experiment with topojson
+library(httr)
+library(pipeR)
+library(listviewer)
+
+# topojson for Afghanistan
+url_path = "https://gist.githubusercontent.com/markmarkoh/8856417/raw/6178d18115d9f273656d294a867c3f83b739a951/customAfghanMap.topo.json"
+
+url_path %>>%
+ GET %>>%
+ content( as = "text") %>>%
+ jsonedit-reactjson
-react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
# using the data from the jsoneditor simple example
-# in R list form
-
-library(listviewer)
-
-reactjson(
- list(
- array = c(1,2,3)
- ,boolean = TRUE
- ,null = NULL
- ,number = 123
- ,object = list( a="b", c="d" )
- ,string = "Hello World"
- )
-)reactjson +
+react-json-view is another very nice JSON interactive editor. We even get copy/paste! All of the above examples should also work with reactjson.
-Shiny example
+Shiny example +
listviewer works with Shiny but the implementation is crude and likely to change for jsonedit while reactjson integration is much better. If you really want to use jsonedit with Shiny, I would recommend debouncing the change callback. Here are examples with each.
library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- jsoneditOutput( "jsed" )
- )
-)
-
-server <- function(input,output){
- output$jsed <- renderJsonedit({
- jsonedit(
- as.list( .GlobalEnv )
- ,"change" = htmlwidgets::JS('function(){
- console.log( event.currentTarget.parentNode.editor.get() )
- }')
- )
-
- })
-}
-
-runApp( list( ui = ui, server = server ) )library(shiny)
-library(listviewer)
-
-# put some data in environment so it will show up
-data(mtcars)
-
-ui <- shinyUI(
- fluidPage(
- reactjsonOutput( "rjed" )
- )
-)
-
-server <- function(input,output){
- output$rjed <- renderReactjson({
- reactjson( as.list( .GlobalEnv ) )
- })
-
- observeEvent(input$rjed_edit, {
- str(input$rjed_edit, max.level=2)
- })
-}
-
-runApp( list( ui = ui, server = server ) )
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ jsoneditOutput( "jsed" )
+ )
+)
+
+server <- function(input,output){
+ output$jsed <- renderJsonedit({
+ jsonedit(
+ jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows")
+ ,"onChange" = htmlwidgets::JS('function(after, before, patch){
+ console.log( after.json )
+ }')
+ )
+
+ })
+}
+
+runApp( list( ui = ui, server = server ) )
+library(shiny)
+library(listviewer)
+
+# put some data in environment so it will show up
+data(mtcars)
+
+ui <- shinyUI(
+ fluidPage(
+ reactjsonOutput( "rjed" )
+ )
+)
+
+server <- function(input,output){
+ output$rjed <- renderReactjson({
+ reactjson( jsonlite::toJSON(mtcars, auto_unbox = TRUE, data.frame = "rows") )
+ })
+
+ observeEvent(input$rjed_edit, {
+ str(input$rjed_edit, max.level=2)
+ })
+}
+
+runApp( list( ui = ui, server = server ) )-code of conduct
-Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
+code of conduct +
+Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
