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

应解决您的问题

在响应输入改变后，withMathJax格式丢失

1 个答案: