浏览器运行JavaScript传结果到Shiny R服务端处理绘图是否可行

这个实现思路完全正确，是解决Shiny服务端高算力场景压力的常用方案：将重计算逻辑转移到用户浏览器端运行，算力由用户设备承担，仅将计算结果回传给服务端做后续处理，能大幅降低多用户并发时的服务端负载。

你需要在UI层嵌入JavaScript计算逻辑，通过Shiny内置的前后端通信接口将计算结果传递给服务端，具体实现代码如下：

1. 调整ui.R代码 #

需要在UI中插入JS脚本，计算完成后调用Shiny.setInputValue方法将结果同步给服务端的input变量：

## ui.R ##
library(shiny)
fluidPage(
  # 嵌入前端计算逻辑
  tags$script(HTML("
    // 等待Shiny连接建立完成后执行计算
    $(document).on('shiny:connected', function() {
      let numberlist = [];
      for (let i = 0; i < 10; i++) {
        numberlist.push(i*3);
      }
      // 将计算结果传给服务端，对应服务端的input$js_number_list
      Shiny.setInputValue('js_number_list', numberlist);
    });
  ")),
  sidebarLayout(
    sidebarPanel(
      # 如需用户触发计算，可在此处添加按钮，对应修改JS的触发逻辑即可
    ),
    mainPanel(plotOutput("Plot"))
  )
)

2. 调整server.R代码 #

直接监听前端传回的input变量即可，建议加req()判断避免值未初始化时的报错：

## server.R ##
library(shiny)
function(input, output) {
  output$Plot <- renderPlot({
    # 等待JS计算结果传回后再执行绘图
    req(input$js_number_list)
    plot(input$js_number_list, main = "前端生成数列绘图结果", xlab = "序号", ylab = "数值")
  })
}

• 若模拟计算耗时较长，可在前端添加加载状态提示，避免用户误以为页面卡顿
• 若计算结果数据量较大，可将结果序列化为JSON压缩后再传输，服务端用jsonlite包解析即可
• JS与R的基础数据类型可自动兼容，普通数组、数值、字符串传回后可直接在R中使用

内容的提问来源于stack exchange，提问作者Aku-Ville Lehtimäki