r语言 - 反应输入更改后丢失 MathJax 格式

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

应该解决你的问题