1

Example Code:

ui <- fluidPage(

  withMathJax(),
  tags$div(HTML("<script type='text/x-mathjax-config'>
                MathJax.Hub.Config({
                tex2jax: {inlineMath: [['$','$'], ['\\(','\\)']]}
                });
                </script>
                ")),

    sidebarPanel(sliderInput("k", "(k_{test})", value=2, min=1, max=3)),

    mainPanel(uiOutput("out"))
)

server <- function(input, output, session){
  output$out <- renderUI({ paste("(k_{test}=)", input$k)}) 
}

shinyApp(ui, server)

Here is my Problem: Initially, the app works fine. When changing the input on the slider, however, the output equation loses its format and I don't know how to fix this.

Thanks in advance!

Paul Schmidt
  • 1,072
  • 10
  • 23

1 Answers1

1
?withMathJax

says:

It only needs to be called once in an app unless the content is rendered after the page is loaded, e.g. via renderUI, in which case we have to call it explicitly every time we write math expressions to the output.

output$out <- renderUI({ 
  list(
    withMathJax(),
    paste("(k_{test}=)", input$k)
  )
})

should solve your problem

scheddy
  • 196
  • 6