ShinyTree с выбранным значением по умолчанию

Question

Я пытаюсь реализовать глянцевое дерево с выбранным значением по умолчанию. Кто-нибудь знает, возможно ли это?

Я не смог найти ничего в документации или в примерах с пакетом .

Спасибо за помощь.

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
})