bquote - Fórmula LaTeX en el panel Brillante

bquote r

Question

Quiero mostrar una fórmula -LaTeX formateada en un panel Brillante, pero no puedo encontrar una manera de combinar textOutput con withMathJax . Intenté lo siguiente pero no funcionó. Cualquier ayuda seria gratamente apreciada.

--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

ui.R

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

servidor.R

output$formula <- renderUI({
return(HTML(paste0("<p>,"Use this formula: $$//hat{A}_{//small{//textrm{M€}}} =", my_calculated_value,"$$","</p>")))
})

Answer 2

¿Qué hay de usar renderPrint() ?

Ejemplo de trabajo mínimo:

library(shiny)
server <- function(input, output, session) {
output$formula <- renderPrint({
print(paste0("Use this formula: $$//hat{A}_{//small{//textrm{M€}}} =", 1,"$$"))
})
}
ui <- fluidPage(
titlePanel("Hello Shiny!"),
sidebarLayout(
sidebarPanel(
),
mainPanel(
withMathJax(textOutput("formula"))
)
)
)
shinyApp(ui = ui, server = server)

EDITAR: Para mí se ve así:

Answer 3

Use uiOutput en el lado de UI y renderUI en el servidor para contenido dinámico.

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)

Más ejemplos: http://shiny.leg.ufpr.br/daniel/019-mathjax/