标签: shinytree

后续shinyTree：视图，而不选择。

library(shiny)
library(shinyTree)
server <- shinyServer(function(input, output, session) {  
  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
  })
})
ui <- shinyUI(
  shiny::fluidPage(
    h4('Shiny hierarchical checkbox')
    ,shinyTree("tree", checkbox = TRUE)
  )
)
shinyApp(ui, server)

我想设置一个变量，如果 I.1.2。lorem impsum 被选中，它的值为4，例如。

我所知道的是我必须使用reactive(). 正如你在这里看到的，我已经学会了如何用checkboxGroupInputs来做到这一点，但我不清楚这是否可以在shinyTree. 我在网上找不到这方面的文档。

如何才能做到这一点？

我也看过这里的功能，但不知道如何使用它们。

考虑以下：

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)

我怎样才能做到这一点，以便默认情况下不选择上述任何一项，但仍然显示？

stselected = FALSE如果我在上面的代码中设置两者，我得到

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

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