具有默认选定值的ShinyTree

Question

我正在尝试实现一个具有默认选定值的shinyTree。有谁知道这是不是可能的？

我在the package附带的documentation或示例中找不到任何东西。

谢谢你的帮助。

Answer 1

将所需节点的'stselected‘属性设置为TRUE

示例：

output$tree <- renderTree({
   sss=list('Nodes' = list('Node1' = '1', 'Node2' = '2'))
   attr(sss[[1]][['Node1']],"stselected")=TRUE # <---
   attr(sss[[1]],"stopened")=TRUE
   sss
})