在响应式R Shiny中使用future与promise优化应用性能的咨询

通过future + promises将耗时任务放到独立后台进程执行，避免阻塞主进程的其他UI渲染逻辑，即可实现数据表优先加载、绘图任务后台异步执行的效果。

第一步：安装依赖包 #

如果还未安装异步相关依赖，先执行以下安装命令：

install.packages(c("future", "promises"))

第二步：修改后的完整可运行代码 #

library(shiny)
library(ggplot2)
library(plotly)
library(dplyr)
library(future)
library(promises)

# 启动跨平台兼容的多进程异步计划
plan(multisession)

ui <- fluidPage(
  selectInput("id1", "Choose:", choices = unique(as.character(iris$Species))),
  dataTableOutput("my_data"),
  plotlyOutput("my_plot")
)

server <- function(input, output, session) {
  
  output$my_data <- renderDataTable({
    iris %>% filter(Species == input$id1)
  })
  
  data_to_plot <- reactive({
    # 提前提取要用到的input参数，传递到后台进程
    selected_species <- input$id1
    # 耗时逻辑包裹在future中放到后台执行，不阻塞主进程
    future({
      Sys.sleep(10) # 此处可替换为实际耗时SQL查询、绘图计算逻辑
      res <- ggplot(iris %>% filter(Species == selected_species), aes(x=Sepal.Length)) + geom_histogram()
      return(res)
    }, seed = TRUE) # 加seed参数避免随机数相关警告
  })
  
  output$my_plot <- renderPlotly({
    # Shiny render函数原生支持promise对象，直接调用即可
    data_to_plot() %...>% 
      ggplotly()
  })
}

shinyApp(ui, server)

关键说明 #

• 后台进程无法直接访问Shiny会话的input对象，因此需要将用到的参数提前提取为本地变量再传入future块，避免作用域报错
• 耗时SQL查询可以直接替换示例中的模拟耗时逻辑，查询完成后再进行后续的数据处理、绘图操作，逻辑完全一致
• 如需提升用户体验，可引入shinycssloaders包，将plotlyOutput("my_plot")替换为withSpinner(plotlyOutput("my_plot"))，即可在绘图加载过程中显示加载动画

内容的提问来源于stack exchange，提问作者CCbs