R shiny不显示数据表

Question

我正在创建一个闪亮的应用程序，显示数据表和数据库查询的结果。 我使用内部包来检索数据，我确信这可以正常工作。

当我想从其中一个db显示数据表时我没有问题，但是当我想显示另一个时，表格根本没有出现。

我使用反应函数来检索数据，使用renderDataTable（）来显示它。这是代码：

shinyServer(function(input, output) {
    dataset <- reactive({
    if(input$experiment!=""&!is.null(input$experiment)){
      if(input$db=="db1"){
        data <- querydb1(experimentID=input$experiment)
      }
      if(input$db=="db2"){
        data <- querydb2(experimentID=input$experiment)
      }
    }
  })



  # output table
  output$data <- renderDataTable({
    dataset()
  })
})

Answer 1

你的反应需要返回一些东西。试试这个：

if(input$experiment!=""&!is.null(input$experiment)){
  if(input$db=="db1"){
    data <- querydb1(experimentID=input$experiment)
  }
  if(input$db=="db2"){
    data <- querydb2(experimentID=input$experiment)
  }
  return(data)
}