我有一个闪亮的应用程序,应该首先从两个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)
这当然不是可复制的示例,但这就是我的查询的结构。是否知道如何使其更高效,更快捷,从而使其加载更快并且响应速度也更快?
谢谢
答案 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等格式表示数据