RMarkdown循环输出带样式表格失效问题求助

问题原因分析 #

1. Example_With_Out_Bucle_2不显示：用print()包裹kable对象时，knitr不会自动渲染成HTML表格，只会输出原始HTML文本，导致页面无法解析显示。
2. Example_With_Bucle仅展示代码/不输出表格：
   • 循环中用cat()输出Markdown标题，需开启results='asis'才能让knitr解析这些语法；
   • 循环内的print()无法让knitr正确渲染kable表格，需改用HTML字符串输出或knitr::knit_print()；
3. HTML中样式失效：kableExtra的样式依赖Bootstrap CSS，需确保RMarkdown输出正确引入相关依赖，避免手动设置样式时冲突。

修复后的RMarkdown代码 #

---
title: "Example Report"
author: "Your Name"
date: "`r Sys.Date()`"
output: 
  html_document:
    df_print: paged
    theme: bootstrap  # 显式指定Bootstrap主题，保障样式加载
---

```{r setup1, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
library(kableExtra)
library(plotly)
library(ggplot2)
library(scales)

# 确保kableExtra的HTML表格样式正常加载
options(kableExtra.html.bsTable = TRUE)

# 颜色变量
purple_color <- "#4B0082"
white_color <- "#FFFFFF"

kable(Lista_Tablas_10Semanas_Por_Division$Division_A) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))

# 获取Division_A的表格
table <- Lista_Tablas_10Semanas_Por_Division$Division_A

# 直接返回kable对象，无需print()
if (!is.null(table)) {
  kable(table, table.attr = "style='width:80%;'") %>%
    kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
    row_spec(0, bold = TRUE, color = white_color, background = purple_color)
} else {
  cat("No data available for this table.\n")
}

# 遍历所有部门表格
for (division in names(Lista_Tablas_10Semanas_Por_Division)) {
  
  # 输出Markdown标题，results='asis'会解析这些语法
  cat(sprintf("### Division: %s\n\n", gsub("_", " ", division)))
  
  # 获取当前部门的表格
  tabla_10semanas <- Lista_Tablas_10Semanas_Por_Division[[division]]
  
  # 将表格转为HTML字符串后输出，确保循环内表格正常渲染
  if (!is.null(tabla_10semanas)) {
    table_html <- kable(tabla_10semanas, table.attr = "style='width:80%;'") %>%
      kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
      row_spec(0, bold = TRUE, color = white_color, background = purple_color) %>%
      as.character()
    cat(table_html, "\n\n")
  } else {
    cat("No data available for this division.\n\n")
  }
}

## 关键修复点说明
- **Example_With_Out_Bucle_2**：移除`print()`，直接返回kable对象，让knitr自动渲染成表格；
- **Example_With_Bucle**：
  - 添加`results='asis'`代码块选项，允许knitr解析`cat()`输出的Markdown标题；
  - 将kable表格转换为HTML字符串后用`cat()`输出，确保循环内的表格能被正确渲染；
- **样式修复**：显式指定`theme: bootstrap`并设置`options(kableExtra.html.bsTable = TRUE)`，确保kableExtra的Bootstrap样式在HTML中正常加载。

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir