如何在 Shiny R 应用程序中为 selectInput 获取从 server.R 到 ui.R 的选项向量

我的 ui.R 文件有一个这样的 selectInput：

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

where camps应该是一个选项向量。该向量取决于在服务器脚本上运行并返回营地 ID 的 sql 查询：

server.R

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

当我运行应用程序时，ui.R 不知道“camps”是什么，因为它仅在 server.R 文件中创建。如何将 server.R 文件中创建的阵营向量传递到 ui.R 文件，以便它们现在成为 selectInput 选择器中可供选择的选项？

您需要在 server.R 中创建一个输入对象，并将其作为 ui.R 的一部分返回到output list:

在服务器中。R：

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

In ui.R:

uiOutput("campSelector")