R闪亮文件输入多种文件类型

Question

我在网上或官方文档中都找不到此文件，但是有可能允许fileInput命令接受多种文件类型吗？如csv和excel？

我已经尝试过这样的事情：

x <- reactive({
    req(input$file)
    inFile <- input$file
    if (endsWith(inFile, '.xlsx')){
      y <- read_excel(inFile$datapath)
      return(gradesTbl)
    } else if (endswith(inFile, '.csv')){
      y <- read_csv(inFile$datapath)
      return(y)
    }
  })

但是我得到这个错误。

Error:non-character object(s)

还有另一种方法来检查fileInput是否为csv或excel格式，然后执行取决于哪个的操作？还是我需要为每种类型的文档创建两个单独的fileInputs？