如何实现R包全局依赖降级：tidytable加载失败时自动切换至dplyr等包

开发者阿泽

2026-8-4

实现R包中tidytable到dplyr/tidyr/purrr的全局自动降级适配

1. 调整包依赖配置（DESCRIPTION文件）

将tidytable设为Suggests（非强制依赖），同时把dplyr、tidyr、purrr设为Imports（确保目标环境必装）
示例配置片段：

Imports:
    dplyr (>= 1.0.0),
    tidyr (>= 1.1.0),
    purrr (>= 0.3.0)
Suggests:
    tidytable (>= 0.10.0)

2. 编写动态加载逻辑（zzz.R文件）

在包的R/zzz.R中添加.onLoad()函数，自动检测环境中是否有tidytable，批量导入对应函数：

.onLoad <- function(libname, pkgname) {
  # 检查tidytable是否可用
  has_tidytable <- requireNamespace("tidytable", quietly = TRUE)
  
  if (has_tidytable) {
    # 导入tidytable中和tidyverse同名的核心函数，按需补充
    core_funs <- c(
      "mutate", "select", "filter", "arrange", "summarize", "group_by",
      "ungroup", "left_join", "pivot_longer", "pivot_wider", "map", "map_df"
    )
    lapply(core_funs, function(f) importFrom("tidytable", f))
  } else {
    # 降级导入dplyr/tidyr/purrr的对应函数
    dplyr_funs <- c("mutate", "select", "filter", "arrange", "summarize", "group_by", "ungroup",
                   "left_join", "right_join", "inner_join", "full_join")
    tidyr_funs <- c("pivot_longer", "pivot_wider")
    purrr_funs <- c("map", "map_dbl", "map_chr", "map_df")
    
    lapply(dplyr_funs, function(f) importFrom("dplyr", f))
    lapply(tidyr_funs, function(f) importFrom("tidyr", f))
    lapply(purrr_funs, function(f) importFrom("purrr", f))
  }
}