shiny - 在 Shiny 中包含带选项的 Markdown

Question

我想在我的 Shiny 应用程序中包含我的 myMardown.md 文档。
为了显示目录，我使用了 toc 选项，还使用了 css (myStyle.css)

myMarkdown.md :

---
output: 
  html_document:
    toc: true
    toc_float: true
    toc_depth: 2
    css: myStyle.css
---

<div>
###A title using myStyle.css {.bigbaseline}
</div>

# Big chapter 1
## chapter A
## chapter B
# Big chapter 2
## chapter A

myStyle.css

.bigbaseline {
   font-size: 2em;
   color: #134C89;
   text-align: center;
   font-style:italic;
}

在 RStudio 中，当我预览 myMarkdown.md(使用 pandoc)时，会显示目录并且使用 css 的标题工作正常。

但我担心当我使用 includeMarkdown 函数时，myMarkdown.md 文档的front-matter 没有被考虑在内。因为我看不到目录，也看不到带有 css 的标题。

app.R

ui <- fluidPage(
  uiOutput("doc_to_display")
)

server <- function(input, output) {
  output$doc_to_display <- renderUI({
    includeMarkdown("myMarkdown.md")
  })
}

shinyApp(ui = ui, server = server)

我也尝试过 includeHTML 但在我的 Shiny 应用程序中我有几个 tabPanel (我使用 navbarPage)并且一旦我转到 tabPanel 包含 HTML 文档 我无法切换回其他 tabPanel。

谢谢。

Answer 1

由于有问题的解决方法，终于找到了解决方案 42422771

这包括 HTML。
Toc 选项可用，css 工作正常，我可以从一个面板切换到另一个面板，而不会卡住 Shiny 的应用程序。

library(shiny)

ui <- fluidPage(
  tags$iframe(src = './myMarkdown.html', # put myMarkdown.html to /www
              width = '100%', height = '800px', 
              frameborder = 0, scrolling = 'auto'
  )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)