我对闪亮和 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。我使用了响应式,因为否则我有一个环境错误。