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

Question

我对闪亮和 googlevis 完全陌生。在我的 IU.R 中，我有一个按钮来上传 csv 和一些其他选项，这些选项被捕获为 header sep 和 quote。我的 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)

})

但它根本不起作用。“文件”数据路径为空。只是尝试上传文件并显示 GoogleVisTable。我使用了响应式，因为否则我有一个环境错误。