如何检测当前运行的knitr输出格式，适配RMarkdown/Quarto表格美化

要区分HTML、PDF、Word三种输出目标，你可以通过读取文档的元数据来实现，而非依赖knitr::opts_knit$get("out.format")（它在标准场景下只会返回"markdown"）。以下是针对RMarkdown和Quarto的具体解决方案：

1. 核心格式检测函数 #

先判断是否处于编织环境，再分别读取Quarto或RMarkdown的元数据识别输出格式：

detect_output_format <- function() {
  # 检查是否在knitr/Quarto编织环境中
  if (!isTRUE(getOption('knitr.in.progress'))) {
    warning("当前未在knitr/Quarto环境中运行")
    return(NULL)
  }

  # 优先检测Quarto环境
  if (requireNamespace("quarto", quietly = TRUE) && !is.null(quarto::quarto_metadata())) {
    fmt <- quarto::quarto_metadata$format
    # 匹配核心格式关键词
    if (grepl("html", fmt, ignore.case = TRUE)) {
      return("HTML")
    } else if (grepl("pdf", fmt, ignore.case = TRUE)) {
      return("PDF")
    } else if (grepl("docx|word", fmt, ignore.case = TRUE)) {
      return("Word")
    } else {
      return(fmt) # 返回原始格式名，处理自定义情况
    }
  }

  # 检测RMarkdown环境
  if (requireNamespace("rmarkdown", quietly = TRUE)) {
    output_meta <- rmarkdown::metadata$output
    if (!is.null(output_meta)) {
      fmt_name <- names(output_meta)[1] # 取yaml中定义的第一个输出格式
      if (grepl("html_document", fmt_name)) {
        return("HTML")
      } else if (grepl("pdf_document", fmt_name)) {
        return("PDF")
      } else if (grepl("word_document", fmt_name)) {
        return("Word")
      } else {
        return(fmt_name)
      }
    }
  }

  # 兜底方案：回到knitr的out.format
  return(knitr::opts_knit$get("out.format"))
}

2. 在表格生成函数中适配使用 #

拿到输出格式后，即可针对不同目标调用对应的表格美化工具：

my_table_function <- function(data) {
  output_fmt <- detect_output_format()

  if (output_fmt == "HTML") {
    # HTML环境用DT生成交互式表格
    return(DT::datatable(data, options = list(pageLength = 10, dom = "ltipr")))
  } else if (output_fmt == "PDF") {
    # PDF环境用kableExtra生成LaTeX格式美化表格
    return(knitr::kable(data, format = "latex") %>% 
             kableExtra::kable_styling(latex_options = c("striped", "hold_position")))
  } else if (output_fmt == "Word") {
    # Word环境用flextable生成适配表格
    return(flextable::flextable(data) %>% 
             flextable::autofit() %>% 
             flextable::bold(part = "header"))
  } else {
    # 默认返回基础markdown表格
    return(knitr::kable(data))
  }
}

注意事项 #

• Quarto的元数据检测需要安装quarto包，可通过install.packages("quarto")完成安装。
• 如果RMarkdown使用了自定义输出格式（如bookdown::html_book），可调整grepl的匹配规则，比如用grepl("html", fmt_name)覆盖所有HTML类输出。
• 若文档设置多个输出格式，names(output_meta)[1]会取yaml中定义的第一个格式，通常这是主要输出目标。

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