Edit R Data with 'react-json'
Edit R Data with 'react-json'
reactjson(listdata = list(), name = "root", theme = "rjv-default", iconStyle = c("circle", "triangle", "square"), indentWidth = 4, collapsed = FALSE, collapseStringsAfterLength = FALSE, groupArraysAfterLength = 100, enableClipboard = TRUE, displayObjectSize = TRUE, displayDataTypes = TRUE, onEdit = TRUE, onAdd = TRUE, onDelete = TRUE, onSelect = TRUE, sortKeys = FALSE, width = NULL, height = NULL, elementId = NULL)
listdata |
|
name |
|
theme |
|
iconStyle |
|
indentWidth |
|
collapsed |
|
collapseStringsAfterLength |
|
groupArraysAfterLength |
|
enableClipboard |
|
displayObjectSize |
|
displayDataTypes |
|
onEdit, onAdd, onDelete, onSelect |
|
sortKeys |
|
width |
integer in pixels defining the width of the |
height |
integer in pixels defining the height of the |
elementId |
character to specify valid |
## Not run: library(listviewer) # use reactR for React dependencies # devtools::install_github("timelyportfolio/reactR") library(reactR) reactjson() reactjson(head(mtcars,4)) reactjson(I(jsonlite::toJSON(head(mtcars,5)))) library(shiny) shinyApp( ui = reactjson( list(x=1,msg="react+r+shiny",opts=list(use_react=FALSE)), elementId = "json1" ), server = function(input, output, session){ observeEvent( input$json1_change, str(input$json1_change) ) } ) # gadget to use as editor library(miniUI) ui <- miniUI::miniPage( miniUI::miniContentPanel( reactjson( list(x=1,msg="react+r+shiny",opts=list(use_react=FALSE)), elementId = "rjeditor" ) ), miniUI::gadgetTitleBar( "Edit", right = miniUI::miniTitleBarButton("done", "Done", primary = TRUE) ) ) server <- function(input, output, session) { shiny::observeEvent(input$done, { shiny::stopApp( input$rjeditor_change ) }) shiny::observeEvent(input$cancel, { shiny::stopApp (NULL) }) } runGadget( ui, server, viewer = shiny::paneViewer() ) ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.