Выпадающее меню с подкатегорией с использованием R и Shiny

Question

Я хочу создать выпадающее меню с подкатегориями, используя R - как должна быть введена подкатегория?

`if (interactive()) { 
ui <- fluidPage(
selectInput("variable", "Variable:", 
      c("HTML Code tester", "Font Styler", "CSS3 Generator", "Box Shadow", "Border Radius")) 

) 

server <- function(input, output) { 

} 

shinyApp(ui, server) 
}` 

Фактический выход: Actual Output Желаемая Выход: Desired Output

Как создать что-то вроде того, что это в желаемый результат?

Спасибо!

Answer 1

Это может работать для вас:

selectInput("variable", "Variable:", 
       list("HTML Code tester", 
        "Font Styler", 
        "CSS3 Generator"=c("Box Shadow", "Border Radius")))