在R语言中如何检测两个包中的数据集是否完全一致

核心是正确从包的命名空间中提取对象，避免用eval(parse)这类容易出环境问题的写法，直接用get()函数指定包的命名空间即可：

compare_package_objects <- function(obj_name, public_pkg, private_pkg) {
  # 从公开包命名空间取对象
  public_obj <- get(obj_name, envir = asNamespace(public_pkg))
  # 从私有包命名空间取对象
  private_obj <- get(obj_name, envir = asNamespace(private_pkg))
  # 执行对比
  identical(public_obj, private_obj)
}

使用示例 #

比如对比thingy对象：

compare_package_objects("thingy", "public.my.package", "private.my.package")

之前方法失效的原因 #

• 用glue生成字符串再eval(parse)：parse默认在当前工作环境查找对象，而非包的命名空间，导致出现"object not found"错误。
• 直接转name类型传入identical：未指定包的命名空间时，name只会在当前环境查找对象，拿到的并非包内的目标对象，因此对比结果失真。

批量对比扩展 #

如果需要批量验证多个数据集，可将对象名存入向量后循环执行：

obj_list <- c("thingy", "all_data", "another_dataset")
sapply(obj_list, compare_package_objects, 
       public_pkg = "public.my.package", 
       private_pkg = "private.my.package")

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