在 R Shiny 中使用并行 foreach 制作进度条

我正在尝试添加一个进度条ocr_data()在 for 循环中，但是当串联使用时，该过程非常慢。
我正在尝试利用并行来加快生成表的过程ocr_data(x).

代码粘贴在这里：

ui <- fluidPage(

   # Application title
   titlePanel("Test"),

   sidebarLayout(
      sidebarPanel(
        fileInput("ocr_pdf","Upload", accept = '.pdf')),
      mainPanel(
         tableOutput("ocr_plot")))
      )

server <- function(input, output) {

  output$ocr_plot <- renderTable({

  image <- input$ocr_pdf$datapath

  image2 <- pdf_convert(image, dpi = 600)

  image2 <- image_read(image2)


  x <- image2  %>%
    image_resize("2000x") 
  #  image_convert(type = 'Grayscale') %>%
   # image_trim(fuzz = 40) 
  #  image_write(format = 'png', density = '300x300') %>%

cl <- detectCores() - 4
registerDoParallel(cl)

    withProgress(message = 'Calculation in progress',
                 detail = 'This may take a while...', value = 0, {
                   foreach(i = 1:nrow(ocr_data(x)), .combine = cbind, .packages = 'shiny') %dopar% {
                     incProgress(1/nrow(ocr_data(x)))
                     Sys.sleep(0.25)
                   }
                 })


  ocr_data(x)

  stopCluster(cl)
   })
}

# Run the application 
shinyApp(ui = ui, server = server)`

我遇到了错误，

“任务 1 失败 - “‘会话’不是 ShinySession 对象。”

我不确定如何修复此错误，请帮忙。