Сохранение пользовательского ввода (приложение Shiny) в глобальной переменной в R

Question

Я хочу сохранить выбор пользователя как вектор символов в моей глобальной среде для использования в дальнейшем анализе в качестве входных данных (my_choices выпадающий список) Как я могу сохранить то, что было выбрано?

Пример предоставлен пользователем Victorp.Большое спасибо

library("shiny")
library("shinyWidgets")

my_choices <- c(
  "2018Q1","2018Q2","2018Q3", "2018Q4", "2019Q1", "2019Q2")

ui <- fluidPage(

  pickerInput(
    inputId = "id",
    label = "SELECT PERIOD:",
    choices = my_choices,
    selected = NULL,
    multiple = TRUE, 
    options = list(
      `actions-box` = TRUE, size = 15, `selected-text-format` = "count > 3"
    ),
    choicesOpt = list(
      content = stringr::str_trunc(my_choices, width = 75)
    )
  ),
  verbatimTextOutput(outputId = "res")
)

server <- function(input, output, session) {
  output$res <- renderPrint(input$id)
}

shinyApp(ui = ui, server = server)

Answer 1

Попробуйте глобальное назначение, используя двуглавую стрелку:

observe({
   your_global_variable <<- input$id
})

Или используя функцию assign():

observe({
   assign(
      x = "your_global_variable", 
      value = input$id, 
      envir = .GlobalEnv
   )
})