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