Shiny面板中的乳胶配方

Question

我想显示在一个闪亮的面板-乳胶formated-公式,但我不能找到一种方法结合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/

Answer 2

怎么样使用renderPrint()？

\n\n

最小工作示例：

\n\n

library(shiny)\n\nserver <- function(input, output, session) {\n\n output$formula <- renderPrint({\n     print(paste0("Use this formula: $$\\\\hat{A}_{\\\\small{\\\\textrm{M\xe2\x82\xac}}} =", 1,"$$"))\n})\n\n}\n\nui <- fluidPage(\n\n\n  titlePanel("Hello Shiny!"),\n\n\n  sidebarLayout(\n    sidebarPanel(\n\n    ),\n\n    mainPanel(\n      withMathJax(textOutput("formula"))\n    )\n    )\n)\n\nshinyApp(ui = ui, server = server)\n

\n\n

编辑： \n对我来说，它看起来像这样：\n

\n