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은 엑셀이 제기되지 않는 이유는 무엇입니까? 이 경로 나 폴더를 인식하지 못하는 것 같습니다. 파일 이름과 폴더가이 오류와 다른 내용입니다.

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) 
      }) 
     } 
     ) 
    )