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)

ここに私の問題があります: 最初は、アプリは正常に動作します。ただし、スライダーの入力を変更すると、出力方程式の形式が失われ、これを修正する方法がわかりません。

前もって感謝します！