如何在R包函数中引用需渲染的Rmd文件并移除rstudioapi依赖

我编写了一个用于生成自动化报告的R包，其中包含createPdfReport函数，代码如下（当前在RStudio中使用）：

createPdfReport <- function(dataset, save_path) {
  rmdName <- strsplit(x = basename(dataset, split = ".", fixed = TRUE)[[1]][1]
  # 此处为使用"dataset"的相关代码
  relPath <- dirname(rstudioapi::getSourceEditorContext()$path)

  rmarkdown::render(input = paste0(relPath, "/myRMDfile.Rmd"),
                    output_dir = save_path,
                    output_file = paste0(rmdName , ".html"),
                    encoding = "UTF-8", quiet = TRUE)
}

由于该R包最终大概率会在服务器上运行，且无法确定运行环境的操作系统或编辑器，因此我希望移除代码中的rstudioapi::getSourceEditorContext()，但不知该如何实现。

该R包的目录结构如下：

• DESCRIPTION
• NAMESPACE
• /man
• /R
  • createPdfReport.R --> 包含上述createPdfReport()函数
  • myRMDfile.Rmd
• /tests

核心思路 #

rstudioapi::getSourceEditorContext()依赖RStudio环境，在服务器或其他编辑器中无法正常工作。R包中获取内部文件路径的标准方法是使用system.file()函数，它能自动根据包的安装位置定位文件，完全不依赖运行环境。

步骤1：修正代码语法错误 #

原代码中strsplit行末尾缺少一个右括号，会导致运行报错，先补上：

rmdName <- strsplit(x = basename(dataset), split = ".", fixed = TRUE)[[1]][1]

步骤2：替换路径获取逻辑 #

用system.file()替代rstudioapi相关代码，修改后的完整函数如下：

createPdfReport <- function(dataset, save_path) {
  rmdName <- strsplit(x = basename(dataset), split = ".", fixed = TRUE)[[1]][1]
  # 此处为使用"dataset"的相关代码
  
  # 获取包内myRMDfile.Rmd的路径，替换成你的实际包名
  rmd_path <- system.file("R", "myRMDfile.Rmd", package = "你的包名")
  
  # 可选：自动获取当前函数所在包名，无需硬编码
  # rmd_path <- system.file("R", "myRMDfile.Rmd", package = utils::packageName())
  
  # 检查文件是否存在，避免静默失败
  if (rmd_path == "") {
    stop("无法找到myRMDfile.Rmd，请检查文件路径或包结构")
  }

  rmarkdown::render(input = rmd_path,
                    output_dir = save_path,
                    output_file = paste0(rmdName , ".html"),
                    encoding = "UTF-8", quiet = TRUE)
}

可选：规范R包目录结构 #

通常R包的非.R源文件（如Rmd）不放在/R目录下，建议将myRMDfile.Rmd移到/inst/reports目录下，此时路径获取代码改为：

rmd_path <- system.file("reports", "myRMDfile.Rmd", package = utils::packageName())

这种结构更符合R包的规范，便于管理各类资源文件。

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