闪亮的 selectizeInput 使用选项设置选定值

Question

我有一个自定义的 selectizeInput，我在其中使用 options 参数指定可用的选项（以进行自定义呈现和搜索，为简单起见，示例中省略了这些选项）。现在我被困在设置选定值的简单任务上。从文档中可以使用 items 字段，但我正在努力寻找正确的设置方法。

library(shiny)
library(purrr)

choices <- purrr::transpose(list(x = letters[1:5],
                                 y = LETTERS[1:5]))

ui <- fluidPage(
  selectizeInput("select", 'Select', choices = "",
                 selected = "",
                 options = list(
                   valueField = 'x',
                   labelField = 'y',
                   items = choices[[1]],
                   options = choices
                 ))
)

shinyApp(ui, function(input, output, session) {})

Answer 1

可能有更好的选择，但这似乎可行。在 options 中添加以下内容：

onInitialize = I('function() { this.setValue("a"); }')

并查看“6.Placeholder”下shiny图库中的selectize示例：

https://shiny.rstudio.com/gallery/selectize-examples.html

ui <- fluidPage(
  selectizeInput("select", 'Select', choices = "",
                 selected = "",
                 options = list(
                   valueField = 'x',
                   labelField = 'y',
                   #items = choices[[1]],
                   onInitialize = I('function() { this.setValue("a"); }'),
                   options = choices
                 ))
)

闪亮的 selectizeInput 使用选项设置选定值

Shiny selectizeInput set selected value with option

r

shiny

selectize.js