rendertext - Cómo obtener un vector de opciones desde server.R hasta ui.R para selectInput en la aplicación Shiny R

shiny app inputs

Question

Mi archivo ui.R tiene un selectInput como este:

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

Donde se supone que los camps son un vector de opciones. Este vector depende de una consulta de SQL que se ejecuta en el script del servidor y devuelve los ID de los campos:

servidor.R

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

Cuando ejecuto la aplicación, el ui.R no sabe qué "campos" se debe a que solo se crea en el archivo server.R. ¿Cómo puedo pasar el vector de campamentos creados en el archivo server.R al archivo ui.R para que ahora sean las opciones a elegir en el selector selectInput?

Answer 1

Debe crear un objeto de entrada en server.R y devolverlo a ui.R como parte de la lista de output :

En server.R:

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

En ui.R:

uiOutput("campSelector")