光沢のあるダイナミック方程式をレンダーする

Question

いくつかの数学を説明し、いくつかの光沢のある入力を与えて結果を計算する光沢のある文書があります。

ドキュメントを編成すると、入力を変更してから適切なレンダリング式の代わりにmathjax/latexコードが表示されるまで、ドキュメントはすべて動作します。

最小作業例では、これは私が見ることを期待することである（test.Rmd）

--- 
output: html_document 
runtime: shiny 
--- 

```{r,,echo=F} 
library(shiny) 
``` 

```{r,echo=F} 
numericInput("a", "A", value = 100, min = 0, max = 10000) 
numericInput("b", "B", value = 120, min = 0, max = 10000) 
a <- reactive(input$a) 
b <- reactive(input$b) 

renderText(withMathJax({ 
    formula <- "$$ 
\\begin{split} 
A &= %.0f \\\\ 
B &= %.0f 
\\end{split} 
$$" 
    text <- sprintf(formula, a(), b()) 

    return(text) 
})) 
``` 

を（私は入力を変更する前に、私が手にする）これは私がAを変更した後でまたはB、私はこれを得る

これを解決する方法や私が間違ったことはありますか？

Answer 1

ここに実例があります。 これはブラウザで確認してください。

library(shiny) 

ui <- list(
    numericInput("a", "A", value = 100, min = 0, max = 10000), 
    numericInput("b", "B", value = 120, min = 0, max = 10000), 
    uiOutput('out') 
) 

server <- function(input, output) 
{ 
    a <- reactive(input$a) 
    b <- reactive(input$b) 
    output$out <- renderUI({ 
    formula <- "$$ 
     \\begin{split} 
     A &= %.0f \\\\ 
     B &= %.0f 
     \\end{split} 
     $$" 
    text <- sprintf(formula, a(), b()) 
    withMathJax( 
     tags$p(text) 
    ) 
    }) 
} 

shinyApp(ui, server)