R语言shinyTree如何实现仅最低级子节点显示复选框

实现原理是给需要隐藏复选框的非最低层级节点添加自定义样式类，再通过CSS规则隐藏对应节点的复选框即可，修改后的完整可运行代码如下：

library(shiny)
library(shinyTree)

# Create tree data ----
tree.data <-    list(
  'Recreational - Fishing' = structure(list(
    'Boat' = structure(list(
      'Cray pot'= structure("",sttype="default",sticon="glyphicon glyphicon-record"),
      'Hand/rod & line' = structure("",sttype="default",sticon="glyphicon glyphicon-record"),
      'Cray loop' = structure("",sttype="default",sticon="glyphicon glyphicon-record"),
      'Drop net' = structure("",sttype="default",sticon="glyphicon glyphicon-record"),
      'Spear' = structure("",sttype="default",sticon="glyphicon glyphicon-record"),
      'Other' = structure("",sttype="default",sticon="glyphicon glyphicon-record")),
      sttype="default",stopened=FALSE,sticon="glyphicon glyphicon-plus", stdisabled=TRUE, stclass="hide-checkbox")),
    sttype="default",stopened=FALSE,sticon="glyphicon glyphicon-plus", stclass="hide-checkbox")
)

# UI ----
ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      .jstree-node.hide-checkbox > .jstree-checkbox {
        display: none !important;
      }
    "))
  ),
  sidebarLayout(
    sidebarPanel(
      shinyTree("tree", checkbox = TRUE, search=TRUE, searchtime = 1000)
    ),
    mainPanel()
  )
)

#Server ----
server <- function(input, output) {
  # Render Tree
  output$tree <- renderTree({
    tree.data
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

运行后'Recreational - Fishing'和'Boat'两个父节点的复选框会被隐藏，仅最低层级的子节点保留复选框，完全匹配需求。

内容的提问来源于stack exchange，提问作者Brooke Gibbons