在RStudio中用Knitr渲染Quarto文件为HTML时如何获取文件路径？

直接用下面的自定义函数，既能在RStudio交互编辑时正常工作，也能在渲染HTML时返回正确路径：

get_current_file_path <- function() {
  # 优先使用RStudio编辑器上下文（仅交互环境可用）
  if (rstudioapi::isAvailable() && rstudioapi::hasFun("getSourceEditorContext")) {
    path <- rstudioapi::getSourceEditorContext()$path
  } else {
    # 渲染环境下用knitr获取当前输入文件的完整路径
    path <- knitr::current_input(dir = TRUE)
  }
  
  # 兜底：从命令行参数提取文件路径
  if (is.null(path) || path == "") {
    cmd_args <- commandArgs(trailingOnly = FALSE)
    path <- grep("--file=", cmd_args, value = TRUE)
    path <- sub("--file=", "", path)
  }
  
  return(path)
}

# 调用示例
current_path <- get_current_file_path()
current_dir <- dirname(current_path)

为什么之前的方法失效？ #

• rstudioapi::getSourceEditorContext()仅在RStudio交互编辑时可用，渲染过程中RStudio的API环境未加载，因此报错。
• 你之前用的knitr::current_input()没加dir = TRUE参数，默认只返回文件名而非完整路径，导致dirname()得到空值。
• 其他方法如commandArgs(trailingOnly = TRUE)或环境变量仅在特定脚本运行场景下生效，不适用于Quarto的渲染流程。

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