1

我正在制作一个闪亮的应用程序，其中输入是 xlsb 格式文件，输出是基于开发的模型的预测。代码在 22kb xlsb 文件上运行良好。但是随着文件大小变为 2000kb，R 服务器总共需要 7 分钟才能读取。将 xlsb 文件转换为 csv 文件大小为 2000kb 到 9000kb。并且推荐使用 xlsb 格式来处理大型数据集。有什么办法可以减少读取数据文件的时间从 7 分钟开始。这只是我正在尝试的布局。

ui <- library(shiny)
library(shinydashboard)
ui <- dashboardPage(
 dashboardHeader(title = "Customized Input File"),
  dashboardSidebar(
   fileInput('file1', 'Choose CSV File',
          accept=c('text/csv', 'text/comma-separated-values,text /plain',  '.csv'))
    ),
 dashboardBody(
  tableOutput('contents')
   )
  )

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

 output$contents <- renderTable({
  return(model_prediction())
  })

model_prediction <- reactive({
inFile <- input$file1
if (is.null(inFile))
  return(NULL)
data<- xl.read.file(inFile$datapath)
 ###Model for Prediction###
 return(values)
 )}

我是第一次在这里发帖，如果我留下了问题的一些细节，请自由提问。

4

0 回答 0