checkbox gerarchico lucido ShinyGroupInput

Question

Come posso creare in Shiny un pannello di selezione di caselle di controllo gerarchiche come l'immagine qui sotto?

Con questo tipo di elenco di opzioni:

choices<- c("I. Lorem ipsum","I.1. Lorem ipsum","I.1.1. Lorem ipsum","I.1.2. Lorem ipsum" , 
      "I.2. Lorem ipsum","I.2.1 Lorem ipsum") 
ui <-fluidPage(
    checkboxGroupInput("variable","Variable:",choices) 
) 
server <- function(input, output, session) { 

} 
runApp(list(ui = ui, server = server)) 

Answer 1

Questo è ciò che si vuole?

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)