r - 响应式输入更改后 withMathJax 格式丢失

Question

示例代码：

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)

这是我的问题： 最初，该应用程序运行良好。但是，当更改滑块上的输入时，输出方程会丢失其格式，我不知道如何解决这个问题。

提前致谢！

Answer 1

?withMathJax

说：

它只需要在应用程序中调用一次，除非在页面加载后呈现内容，例如通过 renderUI，在这种情况下，我们必须在每次将数学表达式写入输出时显式调用它。

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

应该解决你的问题