使用SelectizeGroup输入的默认初始值

我在一个闪亮的应用程序中使用了神奇的

shinyWidget

软件包，特别是我在玩

SelectizeGroup

功能，以便创建一组SelectizeInput来过滤data.frame

是否有一种方法可以像我们为

selectizeInput

指定的那样为输入指定默认值

i、 e通过

selectizeInput

我们选择了一个

最初选择的值（如果multiple=TRUE，则为多个值）。 如果未指定，则默认为单选的第一个值 多个选择列表的列表和无值

我想知道是否有类似的事情

示例取自：

---

a_df你能提供你的问题代码吗？你能提供你的问题代码吗？
a_df <- tibble(
     var_one = c("hadley", "charlotte", "rené", "raymond"),
     var_two = c("mutate", "filter", "slice", "spread"),
     var_three = c("an apple", "a pipe", "a cocktail", "a dog"),
     var_four = c("with", "without", "thanks", "out of"),
     var_five = c("tidyr", "magrittr", "purrr", "dplyr")
     )
ex_df <- expand.grid(a_df)
tib <- as_tibble(sample_n(ex_df, 40))
library(shinyWidgets)
shinyApp(
ui = pageWithSidebar(
headerPanel("Painting 8"),
sidebarPanel(
selectizeGroupUI(
id = "my-filters",
inline = FALSE,
params = list(
var_one = list(inputId = "var_one", title = "Select variable 1", placeholder = 'select'),
var_two = list(inputId = "var_two", title = "Select variable 2", placeholder = 'select'),
var_three = list(inputId = "var_three", title = "Select variable 3", placeholder = 'select'),
var_four = list(inputId = "var_four", title = "Select variable 4", placeholder = 'select'),
var_five = list(inputId = "var_five", title = "Select variable 5", placeholder = 'select')
)
)
),

mainPanel(
tableOutput("table")
)
),

server = function(input, output, session) {

res_mod <- callModule(
module = selectizeGroupServer,
id = "my-filters",
data = tib,
vars = c("var_one", "var_two", "var_three", "var_four", "var_five")
)

output$table <- renderTable({
res_mod()
})

},

options = list(height = 500)
)