fileInput：如何从闪亮的.xlsx文件创建数据框？

Question

我是一个非常新的闪亮和跑得很快的问题，阻碍了我的工作继续下去。我创建了一个.xlsx文件，并尝试在光亮内加载这个文件。 一个类似的问题被讨论here，但没有最终解决。

我试图保持代码尽可能简单：

library(shiny) 

ui <- fluidPage(
     fileInput("uploadFile", "XLSX file"), 
     verbatimTextOutput("summary") 
    ) 

server <- function(input, output) ({ 

      dataset<-reactive({ 
      inFile <- input$uploadFile 
      dat<-read.xlsx("inFile$datapath", 1) 
      return(dat) 
      }) 

     output$summary <- renderText({summary(dataset())}) 

     }) 

只需加载在R上的.xlsx文件工作正常使用此代码：

read.xlsx("testdata.xlsx", 1) 

在serverinFile <- input$uploadFile后添加browser()和呼吁​​给我认为正确的对象，其中包含.$datapath。 上传文件后，我得到的错误是：

Error in loadWorkbook(file) : Cannot find inFile$datapath 

我希望这不是傻，但我不能找出如何解决它。我想知道的是，如何将我上传的文件作为数据框存储在闪存中？

Answer 1

您应该从dat<-read.xlsx("inFile$datapath", 1)行中删除“”。

这一个工程：

dat<-read.xlsx(inFile$datapath, 1) 

最佳， 罗伯特