如何让Shiny中的kable表格完全响应式并正确渲染LaTeX？

初始页面加载时，MathJax会一次性扫描并渲染所有页面中的LaTeX表达式，但修改输入参数后，动态生成的表格HTML是插入到页面的新内容，MathJax不会自动重新扫描这些内容，导致公式无法渲染。

需要做两处关键修改：

• 将UI中的tableOutput替换为uiOutput，因为我们输出的是带自定义HTML的内容，uiOutput更适配动态生成的HTML片段渲染。
• 每次表格更新后，手动调用MathJax的渲染函数，强制它重新解析页面内容。

library(shiny)
library(dplyr)
library(kableExtra)

ui <- fluidPage(
  withMathJax(),
  tags$script(
    type = "text/x-mathjax-config",
    "MathJax.Hub.Config({
              tex2jax: {inlineMath: [['$','$'], ['$$','$$']]}
            });"
  ),
  
  numericInput(inputId = "A", label = "A:", min = 0, max = 10, value = 1), 
  numericInput(inputId = "B", label = "B:", min = 0, max = 10, value = 2), 
  # 替换tableOutput为uiOutput
  uiOutput("AplusB.table")
)

server <- function(input, output, session) {
  AplusB <- reactive({ input$A + input$B })
  
  # 替换renderText为renderUI
  output$AplusB.table <- renderUI({
    tab <- data.frame(
      "And the sum is...", 
      paste0("$", AplusB(), "$")
    )
    
    colnames(tab) <- c(
      "$\\text{Description}$", 
      "$\\sigma=A + B$"
    )
    
    table_html <- tab %>%
      knitr::kable("html", escape = FALSE, align = 'c') %>%
      kable_styling(full_width = FALSE)
    
    # 组合表格HTML和触发MathJax重新渲染的脚本
    tagList(
      HTML(table_html),
      tags$script("MathJax.Hub.Typeset();")
    )
  })
}

shinyApp(ui = ui, server = server)

• renderUI + uiOutput的组合能正确处理动态生成的HTML内容，而tableOutput主要针对Shiny原生表格渲染，对含LaTeX的自定义HTML支持有限。
• 如果想提升渲染效率，可以只针对表格元素触发MathJax，将脚本改为MathJax.Hub.Typeset('#AplusB.table')，避免扫描整个页面。

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