如何让R shiny无冲突地读取.xlsx和csv文件？

install.packages(c("shiny", "readxl", "readr"))

library(shiny)
library(readxl)
library(readr)

ui <- fluidPage(
  fileInput("file", "选择文件", accept = c(".xlsx", ".csv")),
  tableOutput("data")
)

server <- function(input, output) {
  data <- reactive({
    req(input$file)
    file <- input$file$datapath
    ext <- tools::file_ext(file)
    
    if (ext == "xlsx") {
      read_excel(file)
    } else if (ext == "csv") {
      read_csv(file)
    }
  })
  
  output$data <- renderTable({
    data()
  })
}

shinyApp(ui, server)