R Markdown嵌入Shiny元素后，##标题未换行如何解决？

这个问题我之前也碰到过！原因是Shiny的UI组件（比如mainPanel）在没有页面容器包裹的情况下，会以行内块的形式渲染，导致后续的Markdown标题和它挤在同一行。这里有几个靠谱的解决办法：

方法1：用fluidPage包裹Shiny UI（推荐） #

这是最规范的做法，Shiny的UI元素本来就建议放在页面容器里，这样能保证布局的稳定性，后续的Markdown内容也会自动在新行显示：

---
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# 用fluidPage包裹整个UI
fluidPage(
  mainPanel(plotOutput("plot"))
)

output$plot <- renderPlot({
  plot(pressure)
})

Next header #

### 方法2：在代码块末尾添加强制换行
如果不想修改UI结构，可以在代码块最后添加一个HTML换行标签，强制让后续内容换行：

```r
```{r pressure, echo=FALSE}
mainPanel(plotOutput("plot"))
output$plot <- renderPlot({
  plot(pressure)
})
# 添加HTML换行标签
tags$br()

### 为什么会出现这个问题？
当你直接输出`mainPanel`而没有包裹在`fluidPage`这类容器中时，它生成的`<div>`元素默认没有清除浮动的样式，而Markdown标题会被渲染为`<h2>`块级元素，浏览器会把它们放在同一行（因为Shiny的UI元素默认是浮动布局）。用`fluidPage`包裹后，整个UI会生成完整的页面结构，自动和后续的Markdown内容分隔开。

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