A package of R htmlwidgets to interactively view and maybe modify lists. As of now, listviewer provides just one interface to jsoneditor. listviewer is designed though to support multiple interfaces.
devtools::install_github("timelyportfolio/listviewer")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 )# helpful interactive view of par
jsonedit( par() )# meta view of the above
jsonedit(jsonedit(par()))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") %>>%
jsoneditlistviewer works with Shiny but the implementation is crude and likely to change. Here is an example. If you really want to use it, I would recommend debouncing the change callback.
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 ) )