尝试上传文件并使用Shiny显示GoogleVisTable

Question

我对闪亮和googlevis完全陌生。在我的IU.R中，我有一个按钮来上传一个csv和一些其他选项作为标题sep和引用捕获。我的server.R看起来像这样

shinyServer(function(input, output) {
  data <- reactive ({
  inFile <- input$file1
  df<-read.csv(inFile$datapath, header = input$header,
             sep = input$sep, quote = input$quote)
      })
  gvisTable(data()$df)

})

但它根本不起作用。 ＆＃39;文件＆＃39; datapath是空的。只是尝试上传文件并显示GoogleVisTable。我使用了被动，因为我有一个环境错误。