在Shiny中包含降價選項

Question

我想將我的myMardown.md文檔包含在我的Shiny應用中。
要顯示的內容的表，我使用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但在我閃亮的應用程序我有幾個tabPanel（我用navbarPage），一次我去tabPanel包含HTML文檔，我不能切換回別人tabPanel 。

謝謝。

Answer 1

問題42422771

這包括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)