如何在Shiny中使用checkboxGroupInput時添加標題和縮進複選框？

Question

我想頭添加到我的複選框和縮進複選框，讓它們看起來像這樣：

Uppercase 
    [] A 
    [] B 
    [] C 
Lowercase 
    [] a 
    [] b 
    [] c 

這裏是我的代碼

letters <- c("A","B","C","a","b","c") 
library("shiny") 
server <-function(input, output) { 
    output$value <- renderPrint({ input$checkGroup }) 
} 

ui <-fluidPage(
     checkboxGroupInput("checkGroup", 
          label = h3("my letters"), 
          choices = letters, 
     fluidRow(column(3, verbatimTextOutput("value"))) 
) 

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

Answer 1

縮進複選框，您可以設置自己的左旁風格。

有2個組，你可以簡單地分割你的數據並進行2個checkboxGroupInput S：

lletters <- c("a","b","c") 
uletters <- c("A","B","C") 
library("shiny") 
server <-function(input, output) { 
    checkGroup <- reactive(c(input$checkGroupL,input$checkGroupU)) 
    output$value <- renderPrint(checkGroup()) 
} 

ui <-fluidPage( 
    tags$head(tags$style(HTML(".checkbox {margin-left:15px}"))), 
    checkboxGroupInput("checkGroupL", 
        label = h3("Lower case"), 
        choices = lletters), 
    checkboxGroupInput("checkGroupU", 
        label = h3("Upper case"), 
        choices = uletters), 
    fluidRow(column(3, verbatimTextOutput("value")))) 

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