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

在RStudio中，当我预览myMarkdown.md（使用

pandoc

）时，将显示目录，并且使用css的标题工作正常

但我担心，当我使用includeMarkdown函数时，myMarkdown.md文档的前端内容将被忽略。因为我看不到目录，也看不到带有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)

---

ui最终找到了一个解决方案，这多亏了有问题的解决方法

这包括HTML。

Toc选项可用，css工作正常&我可以从一个面板切换到另一个面板，而不会使闪亮的应用程序冻结

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)

库（闪亮）
ui最终找到了一个解决方案，这要归功于所讨论的解决方法

这包括HTML。

Toc选项可用，css工作正常&我可以从一个面板切换到另一个面板，而不会使闪亮的应用程序冻结

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)

库（闪亮）
非常感谢你！这很好用。事实上，关键的一点是确保
myMarkdown.html
文件位于
app/
中的
www/
文件夹中，非常感谢！这很好用。事实上，关键的一点是确保
myMarkdown.html
文件位于
app/
中的
www/
文件夹中