Shiny hierarchical nested flag GroupInput

How can I build a hierarchical selection panel in the Shiny panel, as shown below? enter image description here

With this list of options:

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)) 
+7
user-interface r shiny
source share
1 answer

Is this what you want?

 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) 
+2
source share

All Articles