R语言中基于config配置加载多份SAS数据集的函数问题求助

原函数的核心问题 #

1. 使用<<-修改全局环境变量，存在不可控的变量覆盖风险，不符合函数式编程规范。
2. 代码重复冗余，四个数据集的加载逻辑完全一致，仅路径和对象名不同。
3. 尝试的通用函数存在硬编码参数、无返回值的错误，无法正常工作。

方案1：改进原函数，返回结果列表（无全局副作用） #

重构函数，用辅助函数复用加载逻辑，返回包含所有数据集的列表，既保留原功能又更安全：

get_sas_data <- function(
  filepath_fmt = config::get("tblschemesfmt_filepath"),
  filepath_usages = config::get("tblusages_filepath"),
  filepath_schemes = config::get("tblschemes_filepath"),
  filepath_users = config::get("tblusers_filepath")
) {
  cat("Retrieving Data...\n")
  
  # 定义单个SAS文件的加载逻辑
  load_sas <- function(path, obj_name) {
    cat(sprintf("Loading %s...\n", obj_name))
    haven::read_sas(path) %>% janitor::clean_names()
  }
  
  # 批量加载并返回数据集列表
  list(
    tblschemesfmt = load_sas(filepath_fmt, "tblschemesfmt"),
    tblusages = load_sas(filepath_usages, "tblusages"),
    tblschemes = load_sas(filepath_schemes, "tblschemes"),
    tblusers = load_sas(filepath_users, "tblusers")
  )
}

# 使用示例
data_list <- get_sas_data()
# 若需将数据集导入全局环境，执行：
list2env(data_list, .GlobalEnv)

方案2：更简洁的批量加载函数（适配配置文件规律） #

如果你的config文件中，所有SAS文件路径的键名都以_filepath结尾，可以直接批量读取，无需逐个指定参数：

get_sas_data <- function() {
  # 从config中筛选所有带_filepath后缀的路径
  file_paths <- config::get() %>% 
    purrr::keep(~ stringr::str_ends(names(.), "_filepath"))
  
  cat("Retrieving Data...\n")
  
  # 加载单个文件并自动提取对象名（去掉_filepath后缀）
  load_sas <- function(path, key) {
    obj_name <- stringr::str_remove(key, "_filepath")
    cat(sprintf("Loading %s...\n", obj_name))
    haven::read_sas(path) %>% janitor::clean_names()
  }
  
  # 批量处理返回列表
  purrr::map2(file_paths, names(file_paths), load_sas)
}

# 使用示例
data_list <- get_sas_data()
# 可选：导入全局环境
list2env(data_list, .GlobalEnv)

原通用函数的修正版本 #

你之前尝试的单文件加载函数，修正硬编码和无返回值的问题后可以正常使用：

load_single_sas <- function(config_key) {
  filepath <- config::get(config_key)
  haven::read_sas(filepath) %>% janitor::clean_names()
}

# 加载单个数据集示例
tblschemes <- load_single_sas("tblschemes_filepath")

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