Javascript 如何将shinytree值传递到shinytree中的下拉输入

我正在尝试在Shinny中创建下拉输入，它在R Shinny中具有分层下拉列表，如下所示：

现在我可以创建一个shinytree，在这里我们可以显示整个列表，但是我想在下拉列表中显示列表，而不是shinytree

下面是我的代码：

library(shiny)

library(shinyTree)

# Define UI for application:

    ui <- {fluidPage(
            sidebarLayout(
              sidebarPanel(width = 3,
                 div(shinyTree("Tree",checkbox = TRUE)),
                 verbatimTextOutput("selected")
              ), 
              mainPanel(width = 9)
           )      
    )}

# Define server logic:
    server <- function(input, output, session){
  
       observe({
          df <- data.frame(
             child= c('a','b','c','d','e','f','g','h'), 
             parent = c('f','f','f','g','h','i','i','i'))
    
          tree <- FromDataFrameNetwork(df)
    
          filtered_value <- as.list(tree)
    
          filtered_value <- filtered_value[-1]
    
          output$Tree <- renderTree({ 
            filtered_value
          })
       })
    }

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

库（闪亮）
图书馆（银树）
#为应用程序定义用户界面：
我昨天为图书馆做了一个漂亮的装订。这是可行的，但这并不美妙

文件comboTreeBinding.js放入www子文件夹：

var comboTreeBinding=new shinny.InputBinding（）；
$.extend（comboTreeBinding{
查找：功能（范围）{
返回$（scope.find（“.comboTree”）；
},
getValue:函数（el）{
var值=el.value.split（“，”）；
var empty=value.length==1&&value[0]==“”；
返回空？空：值；
},
设置值：函数（el，值）{
美元（el）；
},
订阅：函数（el、回调）{
$（el）.on（“change.comboTreeBinding”，函数（e）{
回调（）；
});
},
取消订阅：功能（el）{
美元（el.off）（“comboTreeBinding”）；
},
初始化：函数（el）{
变量$el=$（el）；
$el.comboTree({
资料来源：$el.data（“选择”），
isMultiple:$el.data（“多个”），
级联选择：$el.数据（“级联”），
崩溃：真的
});
}
});
inputBindings.register（comboTreeBinding）；

闪亮的应用程序（将文件style.css和comboTreePlugin.js放在www子文件夹中）：

库（闪亮）
图书馆（jsonlite）
comboTreeInput你是什么意思？是的，我正在以同样的方式寻找输入。你在哪里找到这张图片的？这个图书馆看起来很酷。嘿，非常感谢，它符合我的要求。唯一的问题是，在输出中，我的末尾缺少“+”号。请您也帮我完成下面的查询：嘿@Stéphane Laurent，这里需要更多的帮助。我正在尝试添加“全部选择”/“全部取消选择”选项，就像它在pickerInput中一样。这是我的代码：comboTreeInput