r-如何在shine中调用htmlwidget(jsoneditor)上的javascript方法

Question

我正试图在一个闪亮的应用程序中使用listviewer包中的jsonedit，并希望在默认情况下显示完全展开的树。在jsonedit((函数中没有这样做的选项，但底层javascript对象有一个.exexpandAll((方法，应该这样做。我如何从R shine调用这个方法？我下面的尝试在闪亮的应用程序中或直接在R.中都不起作用

library(shiny)
library(listviewer)
library(magrittr)
library(htmlwidgets)
x <- list(a=1,b=2,c=list(d=4,e='penguin'))
jsonedit(x, mode = 'view') %>% onRender("function(el,x,data) {this.expandAll();}")
shinyApp(
ui = shinyUI(
fluidPage(
jsoneditOutput( "jsed" )
)
),
server = function(input, output){
output$jsed <- renderJsonedit({
jsonedit(x, mode = 'view') %>% onRender("function(el,x,data) {this.expandAll();}")
})
}
)

Answer 1

jsonedit(x, mode = 'view') %>% 
onRender("function(el,x,data) {this.editor.expandAll();}")

Answer 2

Stéphane Laurent的回答对我很有效。只需添加函数来源的包。。。

listviewer::jsonedit(
x = list(a=1,b=2,c=list(d=4,e='penguin'))
mode="view"
) %>% htmlwidgets::onRender("function(el,x,data) {this.editor.expandAll();}")