R 使用selectInput时如何将父类别与组一起使用

对于如下所示的应用程序，我如何允许用户选择

无聊

或

基本

，即没有子组的类别，并将该选择存储在输入对象中，从而反映在

renderText

语句中？此外，出于某种原因，选择列表中只显示了

无聊的
，而不是
基本的

shinyApp(
  ui = fluidPage(
    selectInput("selection", 
                "Select Something:",
                list("Boring" = " ",
                     "Positive" = c("Cool", "Groovy", "Rad"),
                     "Basic" = " ",
                     "Taco" = c("Bell", "Hell")),
                selected = "Groovy"
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$selection)
    })
  }
)

shinyApp(
ui=fluidPage(
选择输入（“选择”，
“选择某物：”，
列表（“无聊”=“”，
“正”=c（“酷”、“Groovy”、“Rad”），
“基本”=“”，
“塔可”=c（“钟”、“地狱”），
selected=“Groovy”
),
文本输出（“结果”）
),
服务器=功能（输入、输出）{
输出$result您希望保留所述顺序

shinyApp(
ui=fluidPage(
选择输入(
“选择”，
“选择某物：”，
选项=列表（“无聊”=列表（“无聊”），
“正”=c（“酷”、“Groovy”、“Rad”），
“基本”=列表（“基本”），
“塔可”=c（“钟”、“地狱”），
selected=“Groovy”
),
文本输出（“结果”）
),
服务器=功能（输入、输出）{
output$result您可以删除=“完美”。感谢您的澄清。唯一的问题是这会打乱订单。您知道是否有任何方法可以保留原始订单吗？这很重要，但我不希望重复该选项（即，在组名中一次，然后在该组的选项中第二次）可能会使用selectize=FALSE。然后建议在所有selectInputs中使用它。