tutorial - shiny widgets



Casilla de verificaciĆ³n anidada jerarquizada brillanteGrupoInput (1)

¿Cómo podría crear en Shiny un panel de selección jerárquico de casillas como la imagen de abajo?

Con este tipo de lista de opciones:

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

¿Esto es lo que quieres?

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)