Блестящий набор выбран в selectInput в соответствии с параметром URL?

Question

Вот мое небольшое приложение, я хочу получить параметр из URL и присвоить его параметру selected внутри selectInput функции:

library(shiny)
ui <- fluidPage(
  selectInput("timezone_offset", "Timezone: UTC", choices = -12:14, selected = query[["my_param"]]),
)

server <- function(input, output, session) {
  query <- parseQueryString(session$clientData$url_search)
}

shinyApp(ui = ui, server = server)

Посоветуйте, пожалуйста, как мне это сделать?

Answer 1

Решено с помощью:

observe({
    query <- parseQueryString(session$clientData$url_search)
    if (!is.null(query[["default_tz_offset"]])) {
      updateSelectInput(session, "timezone_offset", selected = query[["default_tz_offset"]])
    }
  })