强制 MathJax 包裹在 Shiny div

Forcing MathJax to Wrap in Shiny div

我有一个很长的 MathJax 表达式需要在 Shiny 应用程序中打印。因为表达式太长,所以需要换行。但是,它目前拒绝这样做。

我强烈怀疑它与未呈现为常规文本的方程式有关(即,它不是呈现为字符串,而是呈现为一系列跨度),这排除了您通常使用的方式div 的内容换行。

我知道 MathJax 支持换行 (here)。我还可以使用 KaTeX 获得 UI 方程式(参见下面的第二个代码块),但更愿意将所有内容保留在 MathJax 中,因为整个应用程序有多复杂。

我尝试过的:

tags$script(type="text/x-mathjax-config", "
    MathJax.Hub.Config({
        \"HTML-CSS\": { linebreaks: { automatic: true;} },
    });
"),
tags$script(type="text/x-mathjax-config", "
    MathJax.Hub.Config({
        \"HTML-CSS\": { linebreaks: { automatic: true;} },
        tex2jax: {inlineMath: [['$','$'], ['\(','\)']]}
    });
"),

可能有几个不同的问题同时 运行 相互影响。关于这些问题可能是什么的想法?


MWE(无 MathJax 输出换行)

# UI
ui <- bootstrapPage(
    h2("UI"),
    # something arbitrary and long
    withMathJax(
        "\( f \left( \alpha, \beta_1 | x_i\right) =  \left(3.5-0.75*-1.414\right)+ \left(3.5-0.75*0.189\right)+ \left(3.5-0.75*0.026\right)+ \left(3.5-0.75*-0.779\right)+ \left(3.5-0.75*0.683\right)+ \left(3.5-0.75*-0.503\right)+ \left(3.5-0.75*-1.18\right)+ \left(3.5-0.75*-1.736\right)+ \left(3.5-0.75*-1.497\right)+ \left(3.5-0.75*-1.12\right)+ \left(3.5-0.75*1.263\right)+ \left(3.5-0.75*0.512\right)+ \left(3.5-0.75*-0.143\right)+ \left(3.5-0.75*-0.464\right)+ \left(3.5-0.75*-0.016\right)+ \left(3.5-0.75*-0.835\right)+ \left(3.5-0.75*0.611\right)+ \left(3.5-0.75*0\right)+ \left(3.5-0.75*-0.117\right)+ \left(3.5-0.75*-1.645\right)+ \left(3.5-0.75*-1.929\right)+ \left(3.5-0.75*-0.026\right)+ \left(3.5-0.75*-1.121\right)+ \left(3.5-0.75*0.61\right)+ \left(3.5-0.75*-0.619\right)+ \left(3.5-0.75*0.806\right)+ \left(3.5-0.75*-0.123\right)+ \left(3.5-0.75*-1.617\right)+ \left(3.5-0.75*-0.683\right)+ \left(3.5-0.75*0.431\right)+ \left(3.5-0.75*2.705\right)+ \left(3.5-0.75*0.726\right)+ \left(3.5-0.75*-0.483\right)+ \left(3.5-0.75*2.135\right)+ \left(3.5-0.75*-0.399\right)+ \left(3.5-0.75*-0.087\right)+ \left(3.5-0.75*-1.004\right)+ \left(3.5-0.75*0.18\right)+ \left(3.5-0.75*0.229\right)+ \left(3.5-0.75*0.671\right)+ \left(3.5-0.75*0.234\right)+ \left(3.5-0.75*0.874\right)+ \left(3.5-0.75*-0.275\right)+ \left(3.5-0.75*-0.812\right)+ \left(3.5-0.75*0.363\right)+ \left(3.5-0.75*-0.549\right)+ \left(3.5-0.75*0.32\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*0.44\right)+ \left(3.5-0.75*-0.492\right)+ \left(3.5-0.75*0.879\right)+ \left(3.5-0.75*3.122\right)+ \left(3.5-0.75*-0.82\right)+ \left(3.5-0.75*-0.65\right)+ \left(3.5-0.75*-0.4\right)+ \left(3.5-0.75*-0.144\right)+ \left(3.5-0.75*1.132\right)+ \left(3.5-0.75*0.505\right)+ \left(3.5-0.75*0.452\right)+ \left(3.5-0.75*0.615\right)+ \left(3.5-0.75*-0.94\right)+ \left(3.5-0.75*-2.144\right)+ \left(3.5-0.75*-1.2\right)+ \left(3.5-0.75*-2.893\right)+ \left(3.5-0.75*-0.19\right)+ \left(3.5-0.75*0.433\right)+ \left(3.5-0.75*2.023\right)+ \left(3.5-0.75*0.046\right)+ \left(3.5-0.75*0.602\right)+ \left(3.5-0.75*-0.862\right)+ \left(3.5-0.75*-0.687\right)+ \left(3.5-0.75*0.907\right)+ \left(3.5-0.75*-0.966\right)+ \left(3.5-0.75*-1.694\right)+ \left(3.5-0.75*1.28\right)+ \left(3.5-0.75*1.178\right)+ \left(3.5-0.75*-1.077\right)+ \left(3.5-0.75*-0.433\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-0.725\right)+ \left(3.5-0.75*0.735\right)+ \left(3.5-0.75*-0.067\right)+ \left(3.5-0.75*0.176\right)+ \left(3.5-0.75*1.653\right)+ \left(3.5-0.75*0.212\right)+ \left(3.5-0.75*2.976\right)+ \left(3.5-0.75*-0.523\right)+ \left(3.5-0.75*-1.426\right)+ \left(3.5-0.75*0.673\right)+ \left(3.5-0.75*-1.079\right)+ \left(3.5-0.75*0.99\right)+ \left(3.5-0.75*0.628\right)+ \left(3.5-0.75*0.188\right)+ \left(3.5-0.75*0.992\right)+ \left(3.5-0.75*0.467\right)+ \left(3.5-0.75*-0.251\right)+ \left(3.5-0.75*1.403\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*1.23\right)+ \left(3.5-0.75*1.342\right)+ \left(3.5-0.75*1.713\right)+ \left(3.5-0.75*0.182\right)+ \left(3.5-0.75*0.758\right)+ \left(3.5-0.75*0.035\right)+ \left(3.5-0.75*0.932\right)+ \left(3.5-0.75*0.702\right)+ \left(3.5-0.75*0.436\right)+ \left(3.5-0.75*-1.355\right)+ \left(3.5-0.75*-1.318\right)+ \left(3.5-0.75*-0.109\right)+ \left(3.5-0.75*0.437\right)+ \left(3.5-0.75*-0.842\right)+ \left(3.5-0.75*0.977\right)+ \left(3.5-0.75*-1.503\right)+ \left(3.5-0.75*-0.253\right)+ \left(3.5-0.75*-1.166\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-1.083\right)+ \left(3.5-0.75*0.086\right)+ \left(3.5-0.75*0.807\right)+ \left(3.5-0.75*-0.068\right)+ \left(3.5-0.75*0.682\right)+ \left(3.5-0.75*0.26\right)+ \left(3.5-0.75*1.225\right)+ \left(3.5-0.75*1.82\right)+ \left(3.5-0.75*-1.444\right)+ \left(3.5-0.75*-0.579\right)+ \left(3.5-0.75*-0.945\right)+ \left(3.5-0.75*-0.743\right)+ \left(3.5-0.75*-0.423\right)+ \left(3.5-0.75*-0.086\right)+ \left(3.5-0.75*-0.105\right)+ \left(3.5-0.75*0.385\right)+ \left(3.5-0.75*0.733\right)+ \left(3.5-0.75*-1.131\right)+ \left(3.5-0.75*3.334\right)+ \left(3.5-0.75*-0.254\right)+ \left(3.5-0.75*0.304\right)+ \left(3.5-0.75*1.234\right)+ \left(3.5-0.75*1.144\right)+ \left(3.5-0.75*0.558\right)+ \left(3.5-0.75*-0.675\right)+ \left(3.5-0.75*-1.729\right)+ \left(3.5-0.75*-1.504\right)+ \left(3.5-0.75*-1.951\right)+ \left(3.5-0.75*0.203\right)+ \left(3.5-0.75*-0.154\right)+ \left(3.5-0.75*-0.545\right)+ \left(3.5-0.75*-0.913\right)+ \left(3.5-0.75*-1.11\right) \)"
    ),
    h2("Server"),
    uiOutput("eqSrv")
)

# Server
server <- function(input, output) {
    output$eqSrv<- renderUI({
        # something arbitrary and long
        withMathJax(
            "\( f \left( \alpha, \beta_1 | x_i\right) =  \left(3.5-0.75*-1.414\right)+ \left(3.5-0.75*0.189\right)+ \left(3.5-0.75*0.026\right)+ \left(3.5-0.75*-0.779\right)+ \left(3.5-0.75*0.683\right)+ \left(3.5-0.75*-0.503\right)+ \left(3.5-0.75*-1.18\right)+ \left(3.5-0.75*-1.736\right)+ \left(3.5-0.75*-1.497\right)+ \left(3.5-0.75*-1.12\right)+ \left(3.5-0.75*1.263\right)+ \left(3.5-0.75*0.512\right)+ \left(3.5-0.75*-0.143\right)+ \left(3.5-0.75*-0.464\right)+ \left(3.5-0.75*-0.016\right)+ \left(3.5-0.75*-0.835\right)+ \left(3.5-0.75*0.611\right)+ \left(3.5-0.75*0\right)+ \left(3.5-0.75*-0.117\right)+ \left(3.5-0.75*-1.645\right)+ \left(3.5-0.75*-1.929\right)+ \left(3.5-0.75*-0.026\right)+ \left(3.5-0.75*-1.121\right)+ \left(3.5-0.75*0.61\right)+ \left(3.5-0.75*-0.619\right)+ \left(3.5-0.75*0.806\right)+ \left(3.5-0.75*-0.123\right)+ \left(3.5-0.75*-1.617\right)+ \left(3.5-0.75*-0.683\right)+ \left(3.5-0.75*0.431\right)+ \left(3.5-0.75*2.705\right)+ \left(3.5-0.75*0.726\right)+ \left(3.5-0.75*-0.483\right)+ \left(3.5-0.75*2.135\right)+ \left(3.5-0.75*-0.399\right)+ \left(3.5-0.75*-0.087\right)+ \left(3.5-0.75*-1.004\right)+ \left(3.5-0.75*0.18\right)+ \left(3.5-0.75*0.229\right)+ \left(3.5-0.75*0.671\right)+ \left(3.5-0.75*0.234\right)+ \left(3.5-0.75*0.874\right)+ \left(3.5-0.75*-0.275\right)+ \left(3.5-0.75*-0.812\right)+ \left(3.5-0.75*0.363\right)+ \left(3.5-0.75*-0.549\right)+ \left(3.5-0.75*0.32\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*0.44\right)+ \left(3.5-0.75*-0.492\right)+ \left(3.5-0.75*0.879\right)+ \left(3.5-0.75*3.122\right)+ \left(3.5-0.75*-0.82\right)+ \left(3.5-0.75*-0.65\right)+ \left(3.5-0.75*-0.4\right)+ \left(3.5-0.75*-0.144\right)+ \left(3.5-0.75*1.132\right)+ \left(3.5-0.75*0.505\right)+ \left(3.5-0.75*0.452\right)+ \left(3.5-0.75*0.615\right)+ \left(3.5-0.75*-0.94\right)+ \left(3.5-0.75*-2.144\right)+ \left(3.5-0.75*-1.2\right)+ \left(3.5-0.75*-2.893\right)+ \left(3.5-0.75*-0.19\right)+ \left(3.5-0.75*0.433\right)+ \left(3.5-0.75*2.023\right)+ \left(3.5-0.75*0.046\right)+ \left(3.5-0.75*0.602\right)+ \left(3.5-0.75*-0.862\right)+ \left(3.5-0.75*-0.687\right)+ \left(3.5-0.75*0.907\right)+ \left(3.5-0.75*-0.966\right)+ \left(3.5-0.75*-1.694\right)+ \left(3.5-0.75*1.28\right)+ \left(3.5-0.75*1.178\right)+ \left(3.5-0.75*-1.077\right)+ \left(3.5-0.75*-0.433\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-0.725\right)+ \left(3.5-0.75*0.735\right)+ \left(3.5-0.75*-0.067\right)+ \left(3.5-0.75*0.176\right)+ \left(3.5-0.75*1.653\right)+ \left(3.5-0.75*0.212\right)+ \left(3.5-0.75*2.976\right)+ \left(3.5-0.75*-0.523\right)+ \left(3.5-0.75*-1.426\right)+ \left(3.5-0.75*0.673\right)+ \left(3.5-0.75*-1.079\right)+ \left(3.5-0.75*0.99\right)+ \left(3.5-0.75*0.628\right)+ \left(3.5-0.75*0.188\right)+ \left(3.5-0.75*0.992\right)+ \left(3.5-0.75*0.467\right)+ \left(3.5-0.75*-0.251\right)+ \left(3.5-0.75*1.403\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*1.23\right)+ \left(3.5-0.75*1.342\right)+ \left(3.5-0.75*1.713\right)+ \left(3.5-0.75*0.182\right)+ \left(3.5-0.75*0.758\right)+ \left(3.5-0.75*0.035\right)+ \left(3.5-0.75*0.932\right)+ \left(3.5-0.75*0.702\right)+ \left(3.5-0.75*0.436\right)+ \left(3.5-0.75*-1.355\right)+ \left(3.5-0.75*-1.318\right)+ \left(3.5-0.75*-0.109\right)+ \left(3.5-0.75*0.437\right)+ \left(3.5-0.75*-0.842\right)+ \left(3.5-0.75*0.977\right)+ \left(3.5-0.75*-1.503\right)+ \left(3.5-0.75*-0.253\right)+ \left(3.5-0.75*-1.166\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-1.083\right)+ \left(3.5-0.75*0.086\right)+ \left(3.5-0.75*0.807\right)+ \left(3.5-0.75*-0.068\right)+ \left(3.5-0.75*0.682\right)+ \left(3.5-0.75*0.26\right)+ \left(3.5-0.75*1.225\right)+ \left(3.5-0.75*1.82\right)+ \left(3.5-0.75*-1.444\right)+ \left(3.5-0.75*-0.579\right)+ \left(3.5-0.75*-0.945\right)+ \left(3.5-0.75*-0.743\right)+ \left(3.5-0.75*-0.423\right)+ \left(3.5-0.75*-0.086\right)+ \left(3.5-0.75*-0.105\right)+ \left(3.5-0.75*0.385\right)+ \left(3.5-0.75*0.733\right)+ \left(3.5-0.75*-1.131\right)+ \left(3.5-0.75*3.334\right)+ \left(3.5-0.75*-0.254\right)+ \left(3.5-0.75*0.304\right)+ \left(3.5-0.75*1.234\right)+ \left(3.5-0.75*1.144\right)+ \left(3.5-0.75*0.558\right)+ \left(3.5-0.75*-0.675\right)+ \left(3.5-0.75*-1.729\right)+ \left(3.5-0.75*-1.504\right)+ \left(3.5-0.75*-1.951\right)+ \left(3.5-0.75*0.203\right)+ \left(3.5-0.75*-0.154\right)+ \left(3.5-0.75*-0.545\right)+ \left(3.5-0.75*-0.913\right)+ \left(3.5-0.75*-1.11\right) \)"
        )
    })
}

# Run
shinyApp(ui = ui, server = server)

带有 KaTeX 的 MWE(它确实包装了 UI 打印的 eq,但不是服务器打印的 eq。也更喜欢用 MathJax 做所有事情。)

# Define the UI
ui <- bootstrapPage(

    tags$head(
    tags$link(rel="stylesheet", 
              href="https://cdn.jsdelivr.net/npm/katex@0.10.1/dist/katex.min.css", 
              integrity="sha384-dbVIfZGuN1Yq7/1Ocstc1lUEm+AT+/rCkibIcC/OmWo5f0EA48Vf8CytHzGrSwbQ",
              crossorigin="anonymous"),
    HTML('<script defer src="https://cdn.jsdelivr.net/npm/katex@0.10.1/dist/katex.min.js" integrity="sha384-2BKqo+exmr9su6dir+qCw08N2ZKRucY4PrGQPPWU1A7FtlCGjmEGFqXCv5nyM5Ij" crossorigin="anonymous"></script>'),
    HTML('<script defer src="https://cdn.jsdelivr.net/npm/katex@0.10.1/dist/contrib/auto-render.min.js" integrity="sha384-kWPLUVMOks5AQFrykwIup5lo0m3iMkkHrD0uJ4H5cjeGihAutqP0yW0J6dpFiVkI" crossorigin="anonymous"></script>'),
    HTML('
    <script>
      document.addEventListener("DOMContentLoaded", function(){
        renderMathInElement(document.body, {
          delimiters: [{left: "$", right: "$", display: false}]
        });
      })
    </script>')
    ), 
    h2("UI"),
    withMathJax(),  

    # something arbitrary and long
    p(" $ f\left( \alpha, \beta_1 | x_i\right) =  \left(3.5-0.75*-1.414\right)+ \left(3.5-0.75*0.189\right)+ \left(3.5-0.75*0.026\right)+ \left(3.5-0.75*-0.779\right)+ \left(3.5-0.75*0.683\right)+ \left(3.5-0.75*-0.503\right)+ \left(3.5-0.75*-1.18\right)+ \left(3.5-0.75*-1.736\right)+ \left(3.5-0.75*-1.497\right)+ \left(3.5-0.75*-1.12\right)+ \left(3.5-0.75*1.263\right)+ \left(3.5-0.75*0.512\right)+ \left(3.5-0.75*-0.143\right)+ \left(3.5-0.75*-0.464\right)+ \left(3.5-0.75*-0.016\right)+ \left(3.5-0.75*-0.835\right)+ \left(3.5-0.75*0.611\right)+ \left(3.5-0.75*0\right)+ \left(3.5-0.75*-0.117\right)+ \left(3.5-0.75*-1.645\right)+ \left(3.5-0.75*-1.929\right)+ \left(3.5-0.75*-0.026\right)+ \left(3.5-0.75*-1.121\right)+ \left(3.5-0.75*0.61\right)+ \left(3.5-0.75*-0.619\right)+ \left(3.5-0.75*0.806\right)+ \left(3.5-0.75*-0.123\right)+ \left(3.5-0.75*-1.617\right)+ \left(3.5-0.75*-0.683\right)+ \left(3.5-0.75*0.431\right)+ \left(3.5-0.75*2.705\right)+ \left(3.5-0.75*0.726\right)+ \left(3.5-0.75*-0.483\right)+ \left(3.5-0.75*2.135\right)+ \left(3.5-0.75*-0.399\right)+ \left(3.5-0.75*-0.087\right)+ \left(3.5-0.75*-1.004\right)+ \left(3.5-0.75*0.18\right)+ \left(3.5-0.75*0.229\right)+ \left(3.5-0.75*0.671\right)+ \left(3.5-0.75*0.234\right)+ \left(3.5-0.75*0.874\right)+ \left(3.5-0.75*-0.275\right)+ \left(3.5-0.75*-0.812\right)+ \left(3.5-0.75*0.363\right)+ \left(3.5-0.75*-0.549\right)+ \left(3.5-0.75*0.32\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*0.44\right)+ \left(3.5-0.75*-0.492\right)+ \left(3.5-0.75*0.879\right)+ \left(3.5-0.75*3.122\right)+ \left(3.5-0.75*-0.82\right)+ \left(3.5-0.75*-0.65\right)+ \left(3.5-0.75*-0.4\right)+ \left(3.5-0.75*-0.144\right)+ \left(3.5-0.75*1.132\right)+ \left(3.5-0.75*0.505\right)+ \left(3.5-0.75*0.452\right)+ \left(3.5-0.75*0.615\right)+ \left(3.5-0.75*-0.94\right)+ \left(3.5-0.75*-2.144\right)+ \left(3.5-0.75*-1.2\right)+ \left(3.5-0.75*-2.893\right)+ \left(3.5-0.75*-0.19\right)+ \left(3.5-0.75*0.433\right)+ \left(3.5-0.75*2.023\right)+ \left(3.5-0.75*0.046\right)+ \left(3.5-0.75*0.602\right)+ \left(3.5-0.75*-0.862\right)+ \left(3.5-0.75*-0.687\right)+ \left(3.5-0.75*0.907\right)+ \left(3.5-0.75*-0.966\right)+ \left(3.5-0.75*-1.694\right)+ \left(3.5-0.75*1.28\right)+ \left(3.5-0.75*1.178\right)+ \left(3.5-0.75*-1.077\right)+ \left(3.5-0.75*-0.433\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-0.725\right)+ \left(3.5-0.75*0.735\right)+ \left(3.5-0.75*-0.067\right)+ \left(3.5-0.75*0.176\right)+ \left(3.5-0.75*1.653\right)+ \left(3.5-0.75*0.212\right)+ \left(3.5-0.75*2.976\right)+ \left(3.5-0.75*-0.523\right)+ \left(3.5-0.75*-1.426\right)+ \left(3.5-0.75*0.673\right)+ \left(3.5-0.75*-1.079\right)+ \left(3.5-0.75*0.99\right)+ \left(3.5-0.75*0.628\right)+ \left(3.5-0.75*0.188\right)+ \left(3.5-0.75*0.992\right)+ \left(3.5-0.75*0.467\right)+ \left(3.5-0.75*-0.251\right)+ \left(3.5-0.75*1.403\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*1.23\right)+ \left(3.5-0.75*1.342\right)+ \left(3.5-0.75*1.713\right)+ \left(3.5-0.75*0.182\right)+ \left(3.5-0.75*0.758\right)+ \left(3.5-0.75*0.035\right)+ \left(3.5-0.75*0.932\right)+ \left(3.5-0.75*0.702\right)+ \left(3.5-0.75*0.436\right)+ \left(3.5-0.75*-1.355\right)+ \left(3.5-0.75*-1.318\right)+ \left(3.5-0.75*-0.109\right)+ \left(3.5-0.75*0.437\right)+ \left(3.5-0.75*-0.842\right)+ \left(3.5-0.75*0.977\right)+ \left(3.5-0.75*-1.503\right)+ \left(3.5-0.75*-0.253\right)+ \left(3.5-0.75*-1.166\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-1.083\right)+ \left(3.5-0.75*0.086\right)+ \left(3.5-0.75*0.807\right)+ \left(3.5-0.75*-0.068\right)+ \left(3.5-0.75*0.682\right)+ \left(3.5-0.75*0.26\right)+ \left(3.5-0.75*1.225\right)+ \left(3.5-0.75*1.82\right)+ \left(3.5-0.75*-1.444\right)+ \left(3.5-0.75*-0.579\right)+ \left(3.5-0.75*-0.945\right)+ \left(3.5-0.75*-0.743\right)+ \left(3.5-0.75*-0.423\right)+ \left(3.5-0.75*-0.086\right)+ \left(3.5-0.75*-0.105\right)+ \left(3.5-0.75*0.385\right)+ \left(3.5-0.75*0.733\right)+ \left(3.5-0.75*-1.131\right)+ \left(3.5-0.75*3.334\right)+ \left(3.5-0.75*-0.254\right)+ \left(3.5-0.75*0.304\right)+ \left(3.5-0.75*1.234\right)+ \left(3.5-0.75*1.144\right)+ \left(3.5-0.75*0.558\right)+ \left(3.5-0.75*-0.675\right)+ \left(3.5-0.75*-1.729\right)+ \left(3.5-0.75*-1.504\right)+ \left(3.5-0.75*-1.951\right)+ \left(3.5-0.75*0.203\right)+ \left(3.5-0.75*-0.154\right)+ \left(3.5-0.75*-0.545\right)+ \left(3.5-0.75*-0.913\right)+ \left(3.5-0.75*-1.11\right)$  "
    ),

    h2("Server"),
    uiOutput("eqSrv")
)


# Define the server code
server <- function(input, output) {
    output$eqSrv<- renderUI({
        # something arbitrary and long
        withMathJax(
            "$$ f\left( \alpha, \beta_1 | x_i\right) =  \left(3.5-0.75*-1.414\right)+ \left(3.5-0.75*0.189\right)+ \left(3.5-0.75*0.026\right)+ \left(3.5-0.75*-0.779\right)+ \left(3.5-0.75*0.683\right)+ \left(3.5-0.75*-0.503\right)+ \left(3.5-0.75*-1.18\right)+ \left(3.5-0.75*-1.736\right)+ \left(3.5-0.75*-1.497\right)+ \left(3.5-0.75*-1.12\right)+ \left(3.5-0.75*1.263\right)+ \left(3.5-0.75*0.512\right)+ \left(3.5-0.75*-0.143\right)+ \left(3.5-0.75*-0.464\right)+ \left(3.5-0.75*-0.016\right)+ \left(3.5-0.75*-0.835\right)+ \left(3.5-0.75*0.611\right)+ \left(3.5-0.75*0\right)+ \left(3.5-0.75*-0.117\right)+ \left(3.5-0.75*-1.645\right)+ \left(3.5-0.75*-1.929\right)+ \left(3.5-0.75*-0.026\right)+ \left(3.5-0.75*-1.121\right)+ \left(3.5-0.75*0.61\right)+ \left(3.5-0.75*-0.619\right)+ \left(3.5-0.75*0.806\right)+ \left(3.5-0.75*-0.123\right)+ \left(3.5-0.75*-1.617\right)+ \left(3.5-0.75*-0.683\right)+ \left(3.5-0.75*0.431\right)+ \left(3.5-0.75*2.705\right)+ \left(3.5-0.75*0.726\right)+ \left(3.5-0.75*-0.483\right)+ \left(3.5-0.75*2.135\right)+ \left(3.5-0.75*-0.399\right)+ \left(3.5-0.75*-0.087\right)+ \left(3.5-0.75*-1.004\right)+ \left(3.5-0.75*0.18\right)+ \left(3.5-0.75*0.229\right)+ \left(3.5-0.75*0.671\right)+ \left(3.5-0.75*0.234\right)+ \left(3.5-0.75*0.874\right)+ \left(3.5-0.75*-0.275\right)+ \left(3.5-0.75*-0.812\right)+ \left(3.5-0.75*0.363\right)+ \left(3.5-0.75*-0.549\right)+ \left(3.5-0.75*0.32\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*0.44\right)+ \left(3.5-0.75*-0.492\right)+ \left(3.5-0.75*0.879\right)+ \left(3.5-0.75*3.122\right)+ \left(3.5-0.75*-0.82\right)+ \left(3.5-0.75*-0.65\right)+ \left(3.5-0.75*-0.4\right)+ \left(3.5-0.75*-0.144\right)+ \left(3.5-0.75*1.132\right)+ \left(3.5-0.75*0.505\right)+ \left(3.5-0.75*0.452\right)+ \left(3.5-0.75*0.615\right)+ \left(3.5-0.75*-0.94\right)+ \left(3.5-0.75*-2.144\right)+ \left(3.5-0.75*-1.2\right)+ \left(3.5-0.75*-2.893\right)+ \left(3.5-0.75*-0.19\right)+ \left(3.5-0.75*0.433\right)+ \left(3.5-0.75*2.023\right)+ \left(3.5-0.75*0.046\right)+ \left(3.5-0.75*0.602\right)+ \left(3.5-0.75*-0.862\right)+ \left(3.5-0.75*-0.687\right)+ \left(3.5-0.75*0.907\right)+ \left(3.5-0.75*-0.966\right)+ \left(3.5-0.75*-1.694\right)+ \left(3.5-0.75*1.28\right)+ \left(3.5-0.75*1.178\right)+ \left(3.5-0.75*-1.077\right)+ \left(3.5-0.75*-0.433\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-0.725\right)+ \left(3.5-0.75*0.735\right)+ \left(3.5-0.75*-0.067\right)+ \left(3.5-0.75*0.176\right)+ \left(3.5-0.75*1.653\right)+ \left(3.5-0.75*0.212\right)+ \left(3.5-0.75*2.976\right)+ \left(3.5-0.75*-0.523\right)+ \left(3.5-0.75*-1.426\right)+ \left(3.5-0.75*0.673\right)+ \left(3.5-0.75*-1.079\right)+ \left(3.5-0.75*0.99\right)+ \left(3.5-0.75*0.628\right)+ \left(3.5-0.75*0.188\right)+ \left(3.5-0.75*0.992\right)+ \left(3.5-0.75*0.467\right)+ \left(3.5-0.75*-0.251\right)+ \left(3.5-0.75*1.403\right)+ \left(3.5-0.75*0.667\right)+ \left(3.5-0.75*1.23\right)+ \left(3.5-0.75*1.342\right)+ \left(3.5-0.75*1.713\right)+ \left(3.5-0.75*0.182\right)+ \left(3.5-0.75*0.758\right)+ \left(3.5-0.75*0.035\right)+ \left(3.5-0.75*0.932\right)+ \left(3.5-0.75*0.702\right)+ \left(3.5-0.75*0.436\right)+ \left(3.5-0.75*-1.355\right)+ \left(3.5-0.75*-1.318\right)+ \left(3.5-0.75*-0.109\right)+ \left(3.5-0.75*0.437\right)+ \left(3.5-0.75*-0.842\right)+ \left(3.5-0.75*0.977\right)+ \left(3.5-0.75*-1.503\right)+ \left(3.5-0.75*-0.253\right)+ \left(3.5-0.75*-1.166\right)+ \left(3.5-0.75*-0.274\right)+ \left(3.5-0.75*-1.083\right)+ \left(3.5-0.75*0.086\right)+ \left(3.5-0.75*0.807\right)+ \left(3.5-0.75*-0.068\right)+ \left(3.5-0.75*0.682\right)+ \left(3.5-0.75*0.26\right)+ \left(3.5-0.75*1.225\right)+ \left(3.5-0.75*1.82\right)+ \left(3.5-0.75*-1.444\right)+ \left(3.5-0.75*-0.579\right)+ \left(3.5-0.75*-0.945\right)+ \left(3.5-0.75*-0.743\right)+ \left(3.5-0.75*-0.423\right)+ \left(3.5-0.75*-0.086\right)+ \left(3.5-0.75*-0.105\right)+ \left(3.5-0.75*0.385\right)+ \left(3.5-0.75*0.733\right)+ \left(3.5-0.75*-1.131\right)+ \left(3.5-0.75*3.334\right)+ \left(3.5-0.75*-0.254\right)+ \left(3.5-0.75*0.304\right)+ \left(3.5-0.75*1.234\right)+ \left(3.5-0.75*1.144\right)+ \left(3.5-0.75*0.558\right)+ \left(3.5-0.75*-0.675\right)+ \left(3.5-0.75*-1.729\right)+ \left(3.5-0.75*-1.504\right)+ \left(3.5-0.75*-1.951\right)+ \left(3.5-0.75*0.203\right)+ \left(3.5-0.75*-0.154\right)+ \left(3.5-0.75*-0.545\right)+ \left(3.5-0.75*-0.913\right)+ \left(3.5-0.75*-1.11\right) $$"
        )

    })
}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

如果您将 MathJax 配置放在 tags$head 中,它就会起作用:

  tags$head(tags$script(type = "text/x-mathjax-config", 
                        'MathJax.Hub.Config({
  "HTML-CSS": { linebreaks: { automatic: true } },
         SVG: { linebreaks: { automatic: true } }
});')),