Kubernetes部署Shiny应用server=FALSE下DT::replaceData替代方案咨询

解决方案 #

方案1：配置K8s会话粘性，继续使用server=TRUE模式（推荐） #

Shiny的WebSocket连接需要固定绑定到同一个后端Pod，跨Pod通信会丢失上下文导致server=TRUE模式异常，修改Service和Ingress配置即可实现会话粘性：

修改后的核心配置片段

# Service配置修改
apiVersion: v1
kind: Service
metadata:
  name: servive-appname
spec:
  ports:
  - name: http
    port: 3838
    protocol: TCP
    targetPort: 3838
  selector:
    app: appname
  type: LoadBalancer
  # 新增会话粘性配置
  sessionAffinity: ClientIP
  sessionAffinityConfig:
    clientIP:
      timeoutSeconds: 3600 # 会话粘性保持1小时，可按需调整
---
# Ingress配置修改
apiVersion: networking.k8s.io/v1beta1
kind: Ingress
metadata:
  name: ingress-appname
  annotations:
    nginx.org/websocket-services: "service-appname"
    # 新增Ingress侧会话粘性配置
    nginx.ingress.kubernetes.io/affinity: "cookie"
    nginx.ingress.kubernetes.io/session-cookie-name: "SHINYSESSIONID"
    nginx.ingress.kubernetes.io/session-cookie-expires: "3600"
    nginx.ingress.kubernetes.io/session-cookie-max-age: "3600"
spec:
  tls:
  - hosts:
    - appname.url.com
  rules:
  - host: appname.url.com
    http:
      paths:
      - path: /
        backend:
          serviceName: service-appname
          servicePort: 3838

配置更新后，同一用户的请求会固定转发到同一个后端Pod，server=TRUE模式即可正常运行，原生的replaceData功能也能正常使用，无需修改R代码。

方案2：server=FALSE模式下自定义实现无刷新数据更新 #

如果需要坚持使用客户端渲染模式，可以通过调用DataTable原生JS API实现数据更新，同时保留排序、分页、选中状态等用户操作状态，改造后的示例代码如下：

library(shiny)
library(DT)
library(jsonlite)
data(iris)

server <- function(input, output, session) {
  iris$new_col = ''
  df = reactive({iris})
  output$table = renderDataTable({
      DT::datatable(df(), selection = 'single', 
        callback = JS("$.fn.dataTable.ext.errMode = 'none';
                      // 初始化时挂载DataTable实例到全局
                      window.dtInstance = table;
                      "))}, server = FALSE)

  observeEvent(input$button, {
    # 模拟写库、读库逻辑
    iris[input$table_rows_selected, 'new_col'] <- 'changed'
    new_df <- iris
    # 转换新数据为JSON发送到前端
    session$sendCustomMessage(type = 'updateDT', message = toJSON(new_df))
  })
}
    
ui <- fluidPage(
  # 自定义JS接收数据并更新表格
  tags$script(HTML("
    Shiny.addCustomMessageHandler('updateDT', function(data) {
      // draw(false)参数保留当前分页、排序状态
      window.dtInstance.clear().rows.add(data).draw(false);
    })
  ")),
  actionButton('button', '点击按钮'),
  DT::DTOutput('table') 
)

shinyApp(ui, server)

该方案通过前端直接操作DataTable实例更新数据，完全不会重置用户操作状态，体验与原生replaceData一致。

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