如何在R函数中保存工作目录并定位到目标PDF路径？

报错原因 #

• system.file("rmd/mydoc.Rmd", package="mypackage") 返回了空字符串，导致rmarkdown::render的输入文件不存在，触发报错。这通常是因为你的包未正确安装，或者文件在包中的路径结构不符合规范（包内文件需放在inst/rmd目录下，安装后才能被system.file识别）。
• 依赖setwd切换目录的方式不可靠，容易因当前工作目录变化导致路径错误。

修正方案 #

直接通过绝对路径管理文件生成和访问，避免切换工作目录：

pdf_doc <- function() {
  library(rmarkdown)
  
  # 获取Rmd文件的绝对路径，先验证文件是否存在
  rmd_path <- system.file("rmd/mydoc.Rmd", package = "mypackage")
  if (rmd_path == "") {
    stop("无法找到Rmd文件，请确认包已正确安装，或文件路径为inst/rmd/mydoc.Rmd")
  }
  
  # 定义PDF输出的绝对路径
  output_dir <- file.path(getwd(), "inst", "rmd")
  # 确保输出目录存在，不存在则创建
  if (!dir.exists(output_dir)) {
    dir.create(output_dir, recursive = TRUE)
  }
  
  # 生成PDF，明确指定输出目录和文件名
  rmarkdown::render(
    input = rmd_path,
    output_file = "mydoc.pdf",
    output_dir = output_dir
  )
  
  # 用绝对路径打开PDF
  pdf_path <- file.path(output_dir, "mydoc.pdf")
  if (file.exists(pdf_path)) {
    browseURL(pdf_path)
  } else {
    stop("PDF文件生成失败，请检查Rmd渲染是否出错")
  }
}

# 调用函数
pdf_doc()

关键改动说明 #

• 增加rmd_path有效性检查，提前拦截文件找不到的问题。
• 明确指定output_dir为目标路径，确保PDF生成到预期位置。
• 使用file.path拼接绝对路径，兼容不同操作系统的路径格式。
• 移除所有setwd操作，避免工作目录变动带来的潜在问题。
• 增加PDF文件存在性检查，避免调用browseURL时找不到文件。

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