r - 使用 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)
}`

实际输出：实际输出 期望输出：期望输出

如何创建类似于所需输出的内容？

谢谢！

Answer 1

这可能对您有用：

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