如何在selectizeInput中實施選擇分組？

Question

我想在selectizeInput中進行分組選擇。 這可以通過提供一個命名列表作為參數“ choices”來完成。 但是，如果一個組僅包含1個元素，則選項的“分組顯示”不起作用。 我認為這會干擾為單個參數提供命名向量的選項。 我如何實現，即使組中恰好只有1個元素，也總是將選項分組？

library(shiny)

shinyApp(
  ui = fluidPage(uiOutput("type")),

  server = function(input, output, session) {
    output$type <- renderUI({
      selectizeInput(inputId = "color",
                     label = "Color",
                     choices = list(one = c(3,5,2,5,6),
                                    two = c("no", "yes", "no"),
                                    three = "only_option"),
                     multiple = T)
    })
  }
)

在上述情況下，元素“ only_option”被錯誤地分配給組“ two”。

Answer 1

您必須提供單個選項作為列表：

library(shiny)

shinyApp(
  ui = fluidPage(uiOutput("type")),
  server = function(input, output, session) {
    output$type <- renderUI({
      selectizeInput(
        inputId = "color",
        label = "Color",
        choices = list(
          one = list(3, 5, 2, 5, 6),
          two = list("no", "yes", "no"),
          three = list("only_option")
        ),
        multiple = TRUE
      )
    })
  }
)

---