无法呈现数据表

Question

我正在尝试将DataTable输出呈现为闪亮的。请找到下面对我用例的解释：

1. 连接到我的数据库并获得表数据到df变量。
2. 将选定的输入从“选择输入”文本框发送到服务器脚本。
3. 服务器脚本应该接受这个输入并获取数据。 ui.R 库(闪亮)库#建立与矿石环境的连接<- odbcConnect("orecloud"，uid="XXXX"，pwd="XXXXX"，believeNRows=FALSE) #准备数据帧以获取数据并显示在选择输入选择列表<- data.frame() df <- sqlQuery(dbconnect )中，“从表中选择不同的cpan”shinyUI(fluidPage(“ORE XXX汇总")，sidebarLayout( sidebarPanel(”请选择病人详细信息.“)，selectInput("CPAN"，标签=“选择病人”，mainPanel( dataTableOutput("tableoutput")

server.R

1. 服务器脚本应该获取输入并查询表中的数据。
2. 将所选数据呈现给UI
3. 如果我在UI中更改了值，那么它应该显示选定的输入数据。 库(RODBC) shinyServer(函数(输入、输出)){ dbconnect <- odbcConnect("orecloud"，uid="oracle"，pwd="Edvenswa2016"，believeNRows=FALSE) df2 <- data.frame() input_var <-输入$ CPAN= (input_var) my_query <-粘贴(“选择*来自细胞因子的CPAN= "，input_var)打印(Myquery) df2 <- sqlQuery(dbconnect )，( renderDataTable({df2}) })

Answer 1

你需要做反应

df2=reactive({
input_var <- input$CPAN
my_query <- paste("select * from CYTOKINE where CPAN= ", input_var)
sqlQuery(dbconnect,myquery)
})

并像renderDataTable({df2()}) } )一样使用

如果输入$CPAN是字符，则需要paste0("select * from CYTOKINE where CPAN= '", input_var,"'")。

也别忘了不和

session$onSessionEnded(function() {
  odbcClose(dbconnect )
})