如何允许 R Shine 读取 .xlsx 和 csv 文件而不会发生冲突？

Question

I am trying to allow users to upload .xlsx and csv files but always get errors.

 ui:
fileInput(
              inputId = "file",
              label = "",
              multiple = TRUE,
              accept = c("text/csv",".xlsx",
                         "text/comma-separated-values,text/plain",
                         ".csv",
                         '.xlsx'),
              placeholder = "Use Ctrl key to choose files"
            ))



Server:

    read.csv(input$file$datapath) -Here, how to deal with .xlsx files

Answer 1

Because you can't use read.csv to read Excel files, they are not CSV files. Try read_excel from { readxl }.

So you can do things like, if it is csv you use read.csv , if it is xlsx , use readxl

You didn't provide the full code, so here I can just give you some snippets:

if(stringr::str_ends(input$file$datapath, "csv")) {
    read.csv(input$file$datapath)
} else if (stringr::str_ends(input$file$datapath, "(xlsx|xls)")) {
    readxl::read_excel(input$file$datapath)
}

Answer 2

Try this:

  inFile <- input$file
  extension <- tools::file_ext(inFile$name)
  filepath <- inFile$datapath
  df <- switch(extension,
               csv = readr::read_csv(filepath),
               xls = readxl::read_xls(filepath),
               xlsx = readxl::read_xlsx(filepath)