Come ottenere vettore di opzioni da server.R a ui.R per selectInput in Shiny R App

Question

Il mio file ui.R ha un selectInput come questo:

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

dove camps si suppone essere un vettore di opzioni. Questo vettore dipende da una query SQL che viene eseguito sul server di script e restituisce gli ID dei campi:

server.R

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

Quando eseguo l'App del ui.R non sa cosa "campi "è perché viene creato solo nel file server.R. Come posso passare il vettore dei campi creati nel file server.R al file ui.R in modo che ora siano le opzioni tra cui scegliere nel selettore selectInput?

Answer 1

È necessario creare un oggetto di immissione in server.R, e restituirlo alla ui.R come parte della lista output:

In server.R:

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

In ui.R :

uiOutput("campSelector")