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

です。それは作品

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