在R Shiny中阅读excel效果缓慢

时间:2018-11-01 11:56:14

标签: r shiny

我有一个闪亮的应用程序,应该首先从两个excel文件中提取/读取数据,然后使用react来自定义excel文件的结果以生成两个表。问题是excel文件很重,应用程序需要花费很多时间才能读取excel文件。这也会减慢反应性响应时间。下面是一个虚拟代码,解释了我的应用程序的结构。

    library(readxl)

    ui <- fluidPage(

    tableOutput('dt1'),
    tableOutput('dt2'),
    selectInput('choice','TLT Select',choices= c('Yes','No'))

    )

    server <- shinyServer(function(input, output){

    t.1 a <-as.data.frame(read_excel(path ="A.xlsx") ,stringsAsFactors = FALSE) #this is a 45 MB excel file

    t.2 <- a <-as.data.frame(read_excel(path ="B.xlsx") ,stringsAsFactors = FALSE) # this is a 50 MB excel file

     excel.a <- reactive({

     if (input$choice == 'Yes') {
      subset(t.1, t.1$Action == 'Yes') }
      else 
      {subset(t.1, t.1$Action == 'No')}


     excel.b <- reactive({

     if (input$choice == 'Yes') {
      subset(t.2, t.2$Action == 'Yes') }
      else 
      {subset(t.2, t.2$Action == 'No')}


      output$dt1 <- renderTable({
      excel.1()
     })

      output$dt2 <- renderTable({
      excel.2()
     })

    })

    }

shinyApp(ui, server)

这当然不是可复制的示例,但这就是我的查询的结构。是否知道如何使其更高效,更快捷,从而使其加载更快并且响应速度也更快?

谢谢

1 个答案:

答案 0 :(得分:0)

在浏览器中尝试或添加“浏览”按钮。 将类似以下内容的内容添加到服务器中:

 data <- reactive({
    validate(
      need(input$file != "", "Please select a data set !!!\nUse 'Browse' bottom to choose\n")
    )

    inFile <- input$file
    if (is.null(inFile))
      return(NULL)
    a <-as.data.frame(read_excel(inFile$datapath) ,stringsAsFactors = FALSE) 
    ....... # all manipulation

# and in UI
fileInput("file", "Choose Date file:",accept = c('.xlsx')

可能这不是文件下载时间,可能是时间以HTML CSS等格式表示数据