部署的闪亮应用程序在不同的浏览器中表现不同（上传csv）

Question

我有一个应用，需要上传 .csv文件。我有以下代码，以防止上传其他格式的文件。

filedata <- reactive({
infile <- input$datafile
if (is.null(infile)) {
  # User has not uploaded a file yet
  return(NULL)
}
if(infile$type != "text/csv" && infile$type != "text/comma-separated-values,text/plain"){
  # User has uploaded wrong format
  return("error1")
}
read.csv(infile$datapath)
})

output$some.element <- renderUI({
latest_quarter.raw <- filedata()
if(is.null(file.raw)){
  return(wellPanel("No file uploaded "))
}
if(file.raw=="error1"){
  return(wellPanel("Upload a *.CSV "))
}
...
})

在IE或MS Edge或Chrome中运行的脚本不允许上传.csv或任何其他文件（.xlsx，.xlsb等），错误为{{1但是，在Mozilla Firefox中完美地运行（因为它应该）。 这是一个非常奇怪的问题，我正面临着一个非常麻烦的问题。关于如何实现这种错误处理同时允许在所提到的浏览器中顺利运行的任何指针将非常受欢迎。感谢