嵌入Rmd转换的HTML时Shiny的Conditional Panel失效问题

问题根源在于：Rmd生成的完整HTML文件包含独立的<html>结构、jQuery及Bootstrap等依赖脚本，和Shiny Dashboard自带的依赖产生冲突，干扰了Shiny的JavaScript逻辑（比如conditionalPanel的条件判断机制）。

以下是两种可行的解决方法，既能保留Rmd的主题样式，又能恢复Conditional Panel功能：

方法一：让Rmd生成仅内容片段（推荐） #

将Rmd的输出格式改为html_fragment，这样生成的HTML仅包含内容部分，不会引入完整的页面结构和重复依赖，从根源避免冲突。

修改Rmd文件 #

---
title: "About Page"
output: 
  html_fragment:
    theme: yeti
---

## About Page

在Shiny中手动引入主题样式 #

因为html_fragment不会自动加载主题CSS，需要将对应的Bootstrap主题文件（如yeti.css）放到Shiny项目的www目录下，然后在UI中引入：

ui <- dashboardPage(
  dashboardHeader(title = "Basic Dashboard"),
  dashboardSidebar(
    sidebarMenu(id="menu1",
                menuItem("tab title1", tabName = "name1", 
                icon = icon("sliders")),
                menuItem("tab title2", tabName =  "name2", 
                icon = icon("sliders"))
    ),
    conditionalPanel(
      condition = "input.menu1 == 'name2'",
      selectInput("period", "Period:", 
                  choices = list("Years" = 1, "Months" = 2))
    )
  ),
  dashboardBody(
    tags$head(
      includeCSS("www/yeti.css")
    ),
    tabItem(tabName = 'name1', uiOutput("about"))
  )
)

保留原渲染逻辑 #

Server部分的代码可以保持不变，依然渲染Rmd为HTML片段后嵌入。

方法二：直接用Shiny的includeMarkdown加载Rmd #

跳过预渲染HTML的步骤，让Shiny直接解析Rmd并生成适配当前环境的内容，复用Shiny的依赖体系，避免冲突。若需要保留主题样式，可提取主题的核心CSS自定义引入。

修改Server部分代码 #

server <- function(input, output) {
  output$about <- renderUI({
    includeMarkdown("www/about.Rmd")
  })
}

添加自定义主题样式 #

将yeti主题的关键CSS规则提取到www/custom-yeti.css，然后在UI中引入：

tags$head(
  includeCSS("www/custom-yeti.css")
)

内容的提问来源于stack exchange，提问作者ikaika