Dropdown-Menü mit Unterkategorie mit R und Shiny

Question

Ich möchte ein Dropdown-Menü mit Unterkategorien mit R erstellen - wie soll eine Unterkategorie eingeführt werden?

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

tatsächliche Ausgang: Actual Output gewünschte Ausgabe: Desired Output

Wie erstelle ich etwas wie das, was in den gewünschten Ausgang ist?

Danke!

Answer 1

Dies könnte für Sie arbeiten:

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