Tengo una aplicación Shiny que usa elread.xlsx función del paquetexlsx. Todo funciona bien, pero quiero cambiar aread_excel dereadxl, esperando que sea más rápido y capaz de hacer frente a archivos grandes.

ui parte:

fileInput("inputFile","Upload file...")

parte del servidor:

  data <- reactive({
    inFile <- input$inputFile
    if (is.null(inFile)) { return(NULL) }    
    dataFile <- read_excel(inFile$datapath,sheet=1)
    return(dataFile)
  })

Me sale el error "Formato desconocido".

inFile $ datapath es "/tmp/.../60974676c7287e913d1c0dc5/0"
inFile $ type es "application / vnd.openxmlformats-officedocument.spreadsheetml.sheet"

Pregunta 1: ¿hay alguna manera de saberread_excel que es un archivo tipo xlsx?
Pregunta 2: ¿es posible controlar la ubicación donde se almacenará el archivo cargado?