r - ファイルをアップロードして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)

})

しかし、まったく機能しません。'file' データパスが空です。ファイルをアップロードして GoogleVisTable を表示しようとしているだけです。そうしないと環境エラーが発生したため、リアクティブを使用しました。