如何在Shining中调用htmlwidget（jsoneditor）上的javascript方法？

我试图在一个闪亮的应用程序中使用listviewer包中的jsonedit，并希望在默认情况下显示完全展开的树。在jsonedit（）函数中没有这样做的选项，但是底层javascript对象有一个.expandAll（）方法，该方法可以完成这项工作。如何从R调用此方法？我下面的尝试在闪亮的应用程序中或直接在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();}")
    })
  }
)

库（闪亮）
库（listviewer）
图书馆（magrittr）
库（htmlwidgets）
x%onRender（“函数（el，x，data）{this.expandAll（）；}”）
shinyApp(
ui=shinyUI(
流动摄影(
jsoneditOutput（“jsed”）
)
),
服务器=功能（输入、输出）{
输出$jsed%onRender（“函数（el，x，data）{this.expandAll（）；}”）
})
}
)

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