r - R ShinyApp で大きな .xlsb 形式のファイルの読み取りにかかる時間を短縮する方法

Question

入力が xlsb 形式のファイルで、出力が開発されたモデルに基づく予測である Shiny アプリを作成しています。コードは 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)
 )}

私はここに初めて投稿します。問題の詳細を残している場合は、自由に質問してください。