r - Shiny 面板中的LaTeX公式

我想在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,"$$"))
})
...

最佳答案

在UI端使用uiOutput，在服务器端使用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/

关于r - Shiny 面板中的LaTeX公式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/30169101/