r - Shiny 面板中的 latex 配方

Question

我想在 Shiny 面板中显示 -LaTeX 格式的公式，但我找不到组合 textOutput 的方法与 withMathJax .我尝试了以下但没有奏效。任何帮助将不胜感激。

--ui.r

...
    tabPanel("Diagnostics", h4(textOutput("diagTitle")),
withMathJax(textOutput("formula")),
),
...

--server.r

...
output$formula <- renderText({
    print(paste0("Use this formula: $$\\hat{A}_{\\small{\\textrm{M€}}} =", my_calculated_value,"$$"))
})
...

Answer 1

使用 uiOutput在 UI 方面和 renderUI在服务器端获取动态内容。

ui <- fluidPage(
  withMathJax(),
  tabPanel(
    title = "Diagnostics", 
    h4(textOutput("diagTitle")),
    uiOutput("formula")
  )
)

server <- function(input, output, session){
  output$formula <- renderUI({
    my_calculated_value <- 5
    withMathJax(paste0("Use this formula: $$\\hat{A}_{\\small{\\textrm{M€}}} =", my_calculated_value,"$$"))
  })
}

shinyApp(ui, server)

更多示例: http://shiny.leg.ufpr.br/daniel/019-mathjax/