Как получить вектор параметров с сервера .R на ui.R для selectInput в приложении Shiny R

В моем файле ui.R есть selectInput:

selectInput("variable1", "Choose Option:", camps)

где camps должен быть вектором опций. Этот вектор зависит от SQL-запроса, который выполняется на сервере script и возвращает идентификаторы лагерей:

server.R

df1 <- getCamps("date")
camps <- unique(df1$idCamps)

Когда я запускаю приложение, ui.R не знает, что такое "лагеря", потому что он создается только в файле server.R. Как передать вектор лагерей, созданных в файле server.R, в файл ui.R, чтобы теперь они могли выбирать из селектора selectInput?

Ответы

Ответ 1

Вам нужно создать входной объект на сервере .R и вернуть его в ui.R как часть списка output:

В server.R:

df1 <- getCamps("date")
camps <- unique(df1$idCamps)
output$campSelector <- renderUI({
   selectInput("variable1", "Choose Option:", as.list(camps)) 
})

В ui.R:

uiOutput("campSelector")