R语言函数中如何将参数嵌入字符串路径实现xpt文件导入

你当前代码路径中的df.xpt属于硬编码的纯文本，R不会将其识别为你定义的函数参数，因此无论传入什么参数，读取路径永远固定为C:\\Folder\\Sub1\\Sub2\\df.xpt，才会触发文件不存在的报错。

你需要通过字符串拼接/插值的方式，把函数参数动态插入到路径中，常见有以下两种实现方案：

方案1：调用时传入字符串文件名（推荐，逻辑更清晰） #

使用paste0拼接路径，调用函数时直接传入文件名前缀的字符串即可：

library(haven)

import_df <- function(file_name) {
  # 动态拼接完整文件路径
  full_path <- paste0("C:\\Folder\\Sub1\\Sub2\\", file_name, ".xpt")
  df <- read_xpt(file = full_path)
  return(df)
}

# 传入字符串格式的文件名前缀，读取ds1.xpt
ds1 <- import_df("ds1")

方案2：支持传入不带引号的参数名 #

如果要保留你原有import_df(ds1)的调用习惯，需要先把传入的符号转换为字符串：

library(haven)

import_df <- function(df) {
  # 将传入的未加引号的参数名转为字符串
  file_name <- deparse(substitute(df))
  full_path <- paste0("C:\\Folder\\Sub1\\Sub2\\", file_name, ".xpt")
  df <- read_xpt(file = full_path)
  return(df)
}

# 无需加引号即可调用
ds1 <- import_df(ds1)

可选优化：更简洁的字符串插值写法 #

如果使用glue包的字符串插值功能，路径写起来更直观不易出错：

library(haven)
library(glue)

import_df <- function(file_name) {
  # 用{}直接嵌入参数变量
  full_path <- glue("C:\\Folder\\Sub1\\Sub2\\{file_name}.xpt")
  df <- read_xpt(file = full_path)
  return(df)
}

ds1 <- import_df("ds1")

也可以在函数内增加文件存在校验，提前抛出更清晰的报错：

import_df <- function(file_name) {
  full_path <- paste0("C:\\Folder\\Sub1\\Sub2\\", file_name, ".xpt")
  if (!file.exists(full_path)) {
    stop(paste0("文件不存在，请检查路径：", full_path))
  }
  df <- read_xpt(file = full_path)
  return(df)
}

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