1

データベースクエリの結果を含むデータテーブルを表示する光沢のあるアプリを作成しています。データを取得するために社内パッケージを使用していますが、これが正しく機能すると確信しています。

データベースの1つからデータテーブルを表示したいときは問題ありませんが、他のテーブルを表示したいときはテーブルが表示されません。

リアクティブ関数を使用してデータを取得し、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()
  })
})
4

1 に答える 1

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)
}
于 2014-04-02T23:24:06.597 に答える