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)

在browser() inFile <- input$uploadFile之后添加server并调用inFile，我认为包含.$datapath的正确对象。上传文件后得到的错误是：

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

我希望这不是愚蠢的，但我可以弄清楚如何解决它。我想知道的是如何将我上传的文件存储为闪亮的数据框？

Answer 1

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

这个有效：

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

最佳，罗伯特

fileInput：如何在闪亮的.xlsx文件中创建数据帧？

1 个答案: