Javascript 限制复选框只选择父节点而不选择子节点，就像R中简单选择shinyTree节点一样

我正在使用shinyTree软件包及其复选框选项

library(shiny)
    library(shinyTree)

    server <- shinyServer(function(input, output, session) {
      # Defining lists inside list and rendering it in the shinyTree
      output$tree <- renderTree({
        list(
          root1 = "123",
          root2 = list(
            SubListA = list(leaf1 = "", leaf2 = "", leaf3=""),
            SubListB = structure(list(leafA = "", leafB = ""),stselected=TRUE)
          )
        )
      })
    })

    ui <- shinyUI(
      pageWithSidebar(
        # Application title
        headerPanel("shinyTree with checkbox controls"),
        sidebarPanel(
         mainPanel(
          # Show a simple table with checkbox.
          shinyTree("tree", checkbox = TRUE)
      ))
    )

shinyApp(ui, server)

库（闪亮）
图书馆（银树）
服务器您想停止自动选择子节点，对吗？@AjayPandya yes是否必须删除复选框插件？您想停止自动选择子节点，对吗？@AjayPandya yes是否必须删除复选框插件？
library(shiny)
library(shinyTree)
server <- shinyServer(function(input, output, session) {
  output$tree <- renderTree({
    list(
      root1 = "",
      root2 = list(
        SubListA = list(leaf1 = "", leaf2 = "", leaf3=""),
        SubListB = list(leafA = "", leafB = "")
      )
    )
  })
})
ui<-shinyUI(
  pageWithSidebar(
    # Application title
    headerPanel("Simple shinyTree!"),
     sidebarPanel(
    mainPanel(
      # Show a simple table.
      shinyTree("tree")
    )
  ))
shinyApp(ui, server)