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文档的前端 不会被考虑。因为我看不到带有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），一旦我转到包含HTML文档的tabPanel，我就可以切换回其他人tabPanel。

谢谢。

Answer 1

最后通过问题42422771

中的解决方法找到了解决方案

这包括HTML Toc 选项可用， css 工作正常＆amp;我可以从一个面板切换到另一个面板而不会使闪亮的应用程序冻结。

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)

包括Markiny和Shiny中的选项

1 个答案: