3

次の点を考慮してください。

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は役に立ちません。

4

1 に答える 1

5

あなたはそのような方法でそれを行うことができます:

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

PS

ドキュメンテーションは本当に悪いですstopened...shinyTree:::getJSONshinyTree:::listToTags

于 2016-08-29T13:57:56.053 に答える