如何在闪亮的应用程序中使用withMathJax函数显示HTML的内容？

Question

我使用withMathJax（includeMarkdown（“ Untitled.md”））在闪亮的应用程序中输出html。但是，尽管在本地文件中生成的html包含了内容列表，但是诸如＃Grade 1，## Grade 2这样的html的内容无法显示在闪亮的位置。

有人可以帮忙吗？

谢谢

嘿

________
Untitled.md files

---
title: "title"
author: "Garrett"
date: "July 10, 2014"
output: 
 html_document: 
   theme: readable
   toc: yes
---

# Grade 1

## Grade 2

_______________


ui <- fluidPage(
 mainPanel("xx", 
          #align = "left",
          class = 'rightAlign',
          column(width = 12,
                 align = "left",
                 br(),
                 #htmlOutput("inc")
                 uiOutput('markdown')
          )
 )
)

server <- function(input, output) {
 output$markdown <- renderUI({
   withMathJax(includeMarkdown("Untitled.md"))
 })
}
)

shinyApp(ui, server)