如何在同一个应用程序中读取上传文件和保管箱文件答案

【问题标题】：How do I read upload file and dropbox file in the same app如何在同一个应用程序中读取上传文件和保管箱文件
【发布时间】：2020-07-15 06:00:36
【问题描述】：

我正在升级我的前同事开发的应用程序。该应用程序被开发用于从 Dropbox 读取文件。我正在尝试添加一个功能，使用户能够从他们的桌面上传最新文件并在之后使用该文件。

这是我的前同事编写的代码，显示了文件是如何从 Dropbox 中读取的：

  if(drop_exists(path = file.path(outputDir,paste(name,".csv",sep="")))==TRUE){
    # data = data.frame(drop_read_csv(file.path(outputDir,paste(name,".csv",sep=""))))
    data = data.frame(drop_read_csv(file = paste0(outputDir,"/",name,".csv"), header=TRUE, sep=","), stringsAsFactors = FALSE)
    data[,"Timestamp"] = as.Date(data[,"Timestamp"],"%Y-%m-%d")
  } else { data = data.frame(read.csv("Risk Heat Map.csv", header = TRUE, sep=","), stringsAsFactors = FALSE)
  data[,"Timestamp"] = as.Date(data[,"Timestamp"],"%Y-%m-%d")}
  return(data)
}

然后我添加了这些：

fileInput("newriskregister",'Upload Risk Register',accept=c('text/csv','text/comma-separated-values,text/plain','.csv')),

和

observe({
    if (!is.null(input$newriskregister)){
    risk$data =data.frame(upload(), stringsAsFactors = FALSE)}
  
  })

和

upload=function(){

  data <- data.frame(read.csv(input$newriskregister$datapath, header = TRUE, sep=","), stringsAsFactors = FALSE)
  data[,"Timestamp"] = as.Date(data[,"Timestamp"],"%Y-%m-%d")
  
}

在我的代码的不同区域。当我上传文件时出现问题，应用程序立即崩溃。但是，如果我像下面这样通过 upload() 函数更改代码，它就可以工作了。

upload=function(){

  data = data.frame(read.csv("Risk Heat Map.csv", header = TRUE, sep=","), stringsAsFactors = FALSE)
  data[,"Timestamp"] = as.Date(data[,"Timestamp"],"%Y-%m-%d")
  
  return(data)
}

Risk Heat Map.csv 是另一个文件，现在在 Dropbox 上，但它不是我想要的。我想创建本地上传的文件，有人可以帮忙诊断吗？非常感谢。

【问题讨论】：

标签： r shiny shiny-server shinyapps

【解决方案1】：

试试这个

upload=function(){
  req(input$newriskregister)
  file <- input$newriskregister
  data <- data.frame(read.csv(file$datapath, header = TRUE, sep=","), stringsAsFactors = FALSE)
  data[,"Timestamp"] = as.Date(data[,"Timestamp"],"%Y-%m-%d")
}

【讨论】：