从Markdown渲染的闪亮动态UI

时间:2016-03-06 22:00:30

标签: r shiny r-markdown dynamic-ui

我正在尝试加载并在一个Shiny应用程序中渲染一系列用markdown编写的数学练习。为了举个例子,让我们做两次练习。 ex1.Rmd看起来像这样:

A formula: $x^2=x\times{}x$.

......和ex2.Rmd这样:

A different formula: $x^3=x^2\times{}x$.

当我运行以下应用时:

exercices  <- c('ex1', 'ex2')
for(e in exercices) render(
  input         = paste0(e, '.Rmd'),
  output_format = html_document()
)

shinyApp(
  ui     = shinyUI(htmlOutput('exercices')),
  server = shinyServer(function(input, output) {

    output$exercices <- renderUI({
      lapply(exercices, htmlOutput, class='exercice')
    })

    for(e in exercices) local({
      output[[e]] <- renderUI(
        withMathJax(includeHTML(paste0(e, '.html')))
      )
    })

  })

)

......我只得到第一个公式。但是,在HTML结构中,已正确创建了两个动态UI元素。但只有第一个有内容。

enter image description here

你们都得到了同样的结果吗?如果是的话,我做错了什么?

0 个答案:

没有答案