如何消除或异步渲染 R 中的阻塞脚本？

Question

我有一个简单的应用程序，只使用几个包

library(shiny)
library(tableHTML)
library(shinyWidgets)
library(shinyFeedback)
library(lubridate)

总体而言，加载后速度很快，但在新会话窗口上需要 3-4 秒。

当我在https://developers.google.com/speed/pagespeed/insights/上分析它时， 这是主要问题

资源正在阻止您的页面的第一次绘制。考虑提供关键的 JS/CSS 内联并推迟所有非关键的 JS/样式。了解更多。

URL
Transfer Size
Potential Savings
…shared/shiny.min.css()
1.9 KiB
180 ms
…css/shinyfeedback.css()
0.6 KiB
330 ms
…css/all.min.css()
12.7 KiB
630 ms
…css/v4-shims.min.css()
4.4 KiB
480 ms
…css/toastr.min.css()
3.1 KiB
330 ms
…shinyWidgets/shinyWidgets.min.css()
1.0 KiB
330 ms
…bootstrap-switch-3.3.4/bootstrap-switch.min.css()
1.4 KiB
180 ms
…css/bootstrap.min.css()
19.6 KiB
780 ms
…css/bootstrap-accessibility.min.css()
0.8 KiB
180 ms
…__assets__/shiny-server.css()
1.3 KiB
180 ms
…shared/jquery.min.js()
30.5 KiB
1,080 ms
…shared/shiny.min.js()
25.7 KiB
930 ms
…js/shinyfeedback.js()
2.9 KiB
180 ms
…js/toastr.min.js()
2.3 KiB
180 ms
…js/shinytoastr.js()
0.6 KiB
180 ms
…shinyWidgets/shinyWidgets-bindings.min.js()
6.1 KiB
330 ms
…bootstrap-switch-3.3.4/bootstrap-switch.min.js()
3.8 KiB
180 ms
…js/bootstrap.min.js()
11.0 KiB
480 ms
…js/bootstrap-accessibility.min.js()
4.3 KiB
330 ms
…__assets__/sockjs-0.3.4.min.js()
11.4 KiB
480 ms
…__assets__/shiny-server-client.min.js()
18.6 KiB
480 ms

从我在 JS 网站上读到的内容来看，答案是让这一切都异步。有 R 闪亮的选项吗？

查看示例应用程序

library(shiny)
library(tableHTML)
library(shinyWidgets)
library(shinyFeedback)
library(lubridate)


ui <- fluidPage(
              div(id = 'mainp',
                  
                  div(style = 'margin-bottom:30px;margin-top:10px; text-align:center',
                      span('My app', style = 'font-size:24px'),
                      tableHTML_output('mytable')
                      )
              )
)

server <- function(input, output, session) {
  
  output$mytable <- render_tableHTML({
    tableHTML(head(mtcars))
  })
  
}

shinyApp(ui = ui, server = server)