shinyAppを使用して.XLSファイルを開く方法

Question

18個（.XLS）のファイルがあり、Shinyを使用してファイルを開いて読みたいと思っています。問題がどこにあるのか分かりません。 =にCを受け入れて変更したとき、私は（の.xlsx）ファイルを開くには、この同じコードを使用することができました

install.packages("readxl") 
library(shiny) 
library(readxl) 

runApp(
    list(
    ui = fluidPage(
     titlePanel("Use readxls"), 
     sidebarLayout(
     sidebarPanel(
      fileInput('file1', 'Choose XLS file', 
        accept = c(".XLS") 
     ) 
     ), 
     mainPanel(
      tableOutput('contents')) 
    ) 
    ), 
    server = function(input, output){ 
     output$contents <- renderTable({ 
     inFile <- input$file1 

     if(is.null(inFile)) 
      return(NULL) 
     file.rename(inFile$datapath, 
        paste(inFile$datapath, ".XLS", sep="")) 
     read_excel(paste(inFile$datapath, ".XLS", sep=""), 1) 
     }) 
    } 
) 
) 

を未エクセル 警告ファイル（「XLSX。」）：read_funでエラー：オープンに失敗しました/ VAR /フォルダ/ DF/5cr7h6td3432hn68rplrj6lm0000gn/T // RtmpohK8Zl/2f5ccd8bfa3742ad3ec38aef/0.XLS.XLS

1 - それはExcelがファイルされていないのはなぜ？私はこのパスやフォルダを認識できないようです。ファイルとフォルダの名前がこのエラーで表示されるものと異なります

2ディレクトリに複数のファイルを開く方法はありますか？

Answer 1

これは私にとってうまくいきます。

library(shiny) 
library(readxl) 

runApp(
    list(
     ui = fluidPage(
      titlePanel("Use readxl"), 
      sidebarLayout(
       sidebarPanel(
        fileInput('file1', 'Choose xlsx file', 
           accept = c(".xlsx") 
          ) 
        ), 
       mainPanel(
        tableOutput('contents')) 
       ) 
      ), 
     server = function(input, output){ 
      output$contents <- renderTable({ 
       inFile <- input$file1 

       if(is.null(inFile)) 
        return(NULL) 
       file.rename(inFile$datapath, 
          paste(inFile$datapath, ".xlsx", sep="")) 
       read_excel(paste(inFile$datapath, ".xlsx", sep=""), 1) 
      }) 
     } 
     ) 
    )