shinyTree：无需选择即可查看

Question

考虑以下因素：

library(shiny)
library(shinyTree)
server <- shinyServer(function(input, output, session) {  
  output$tree <- renderTree({ 
    list(  'I lorem impsum'= list( 
      'I.1 lorem impsum'   =  structure(list('I.1.1 lorem impsum'='1', 'I.1.2 lorem impsum'='2'),stselected=TRUE),  
      'I.2 lorem impsum'   =  structure(list('I.2.1 lorem impsum'='3'), stselected=TRUE))) 
  })
})
ui <- shinyUI(
  shiny::fluidPage(
    h4('Shiny hierarchical checkbox')
    ,shinyTree("tree", checkbox = TRUE)
  )
)
shinyApp(ui, server)

我怎样才能使默认情况下选择上述 none 但 仍然显示 ？

如果我在上面的代码中同时设置 stselected = FALSE，我会得到

这不是我想要的；我只想取消选中上面的复选框。

链接到关于更多代码文档的在线参考将非常有用。 shinyTree 的包文档没有帮助。

Answer 1

你可以这样做:

output$tree <- renderTree({ 
    sss=list(  'I lorem impsum'= list( 
      'I.1 lorem impsum'   =  structure(list('I.1.1 lorem impsum'='1', 'I.1.2 lorem impsum'='2'),stopened=TRUE),  
      'I.2 lorem impsum'   =  structure(list('I.2.1 lorem impsum'='3'), stopened=TRUE)))
    attr(sss[[1]],"stopened")=TRUE 
    sss
  })

P.S

文档真的很糟糕...我在 shinyTree:::getJSON 中找到了 stopened，它在 shinyTree:::listToTags

中使用

shinyTree：无需选择即可查看

shinyTree: view without selecting

r

shiny

shinytree

P.S