R Shiny selectizeInput（）-如何显示重复项？

Question

我希望updateSelectizeInput显示重复的值（如果有）。我似乎找不到这是否可行。下面是一个可重现的示例。

library(shiny)

x <- c("a", "b", "c", "c", "c")

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectizeInput("input", choices = NULL, label = "Input:")
    ),
    mainPanel()
  )
)

server <- function(input, output, session) {

  updateSelectizeInput(session, "input", choices = x, server = TRUE)

}

shinyApp(ui = ui, server = server)

结果：

所需结果：

对于期望的结果，我将x更改为x <- c("a", "b", "c", "c ", "c ")只是为了显示期望的结果。显然，我不想在字符串中放置一些空格。