如何在KableExtra中的单元格中强制换行符和粗体字符串

library(knitr)
library(kableExtra)

# 创建一个包含换行和粗体字符串的数据框
df <- data.frame(
  text = c("这是一个\n换行示例", "**这是一个粗体示例**"),
  stringsAsFactors = FALSE
)

# 使用linebreak()函数替换字符串中的换行符和粗体标记
df$text <- linebreak(df$text)
df$text <- gsub("\\*\\*", "", df$text)
df$text <- cell_spec(df$text, bold = TRUE)

# 创建表格并设置样式
kable(df, format = "html") %>%
  kable_styling(bootstrap_options = "striped", full_width = FALSE)