Hộp kiểm lồng nhau được phân cấp theo thứ hạngGroupInput

Question

Làm cách nào để tôi có thể xây dựng trong bảng điều khiển chọn hộp kiểm có thứ bậc như hình dưới đây?

Với loại danh sách các lựa chọn:

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

Đây là những gì bạn muốn?

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)