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