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/