如何在shiny中调用htmlwidget (jsoneditor)上的javascript方法？

library(shiny)
library(jsoneditor)

ui <- fluidPage(
  tags$head(
    # 加载jsoneditor的htmlwidget库
    htmlwidgets::HTML(paste0('<script src="', htmlwidgets:::getDependencyPath("jsoneditor", "jsoneditor.min.js"), '"></script>'))
  ),
  fluidRow(
    column(width = 6,
           # 创建一个div元素，用于容纳jsoneditor的实例
           htmltools::div(id = "jsoneditor")
    )
  )
)

server <- function(input, output, session) {
  output$jsoneditor <- renderUI({
    # 渲染jsoneditor的实例
    htmlwidgets::createWidget("jsoneditor", list(), width = "100%", height = "400px")
  })
  
  observeEvent(input$jsoneditor, {
    # 监听jsoneditor的事件
    htmlwidgets::onRender(input$jsoneditor, '
      function(el, x) {
        // 在jsoneditor的实例上调用JavaScript方法
        var json = JSON.parse(\'{"name": "John", "age": 30}\');
        x.jsoneditor.set(json);
      }
    ')
  })
}

shinyApp(ui, server)