R闪亮的分层下拉列表

Question

我们需要在R shiny中创建一个分层下拉列表。该列表至少有3个级别。能帮我识别一下这个正确的库吗？请参考下面的图片供您参考。目前我们使用的是以下代码。但是我们在下拉列表中的列数不正确。

ui.R
     library(shiny)
    library(shinydashboard)
    library(shinyTree)

shinyUI(
  shiny::fluidPage(
    h3('Countries '),
    shinyTree("tree", checkbox = TRUE),
    verbatimTextOutput("x")


  )
) 
server.R


library(shiny)
library(shinydashboard)
library(shinyTree)
library(treemap)
data(GNI2014)
  head(GNI2014)
GNI2014$pathString <- paste("world", 
                            GNI2014$continent, 
                            GNI2014$country, 
                            sep = "/")
population <- as.Node(GNI2014)
GL<-as.list(population)
shinyServer(function(input, output, session) {  
  output$tree <- renderTree({GL })

  output$x<-renderPrint({input$tree})


})