начальное значение по умолчанию для ввода с SelectizeGroup - PullRequest
Новая
       31

начальное значение по умолчанию для ввода с SelectizeGroup

1 голос
/ 30 октября 2019

Я использую удивительный пакет shinyWidget внутри блестящего приложения и, в частности, я играю с функцией SelectizeGroup, чтобы создать группу SelectizeInput для фильтрации data.frame.

Есть ли способ указать значение по умолчанию для ввода, как мы делаем для selectizeInput?

, то есть с selectizeInput у нас есть выбранный параметр, который

изначально выбранное значение (или несколько значений, если несколько = ИСТИНА). Если не указан, то по умолчанию используется первое значение для списков с одним выбором, а для списков с несколькими выборами нет значений.

Интересно, есть ли что-то подобное?

ПРИМЕР взят из: https://www.davidsolito.com/post/conditional-drop-down-in-shiny/

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)
)

Хотелось бы, чтобы при запуске приложения было предварительно выбрано хотя бы значение для первой переменной var_one

...