R语言purrr映射中嵌套保存对象的环境变量问题求助

问题原因 #

• purrr的map中使用的.x是延迟求值对象（promise），并非直接存储数据的变量。在fun()里直接指定list = ".x"时，save保存的是这个未求值的promise，而非传入的iris数据。
• fun()的运行环境是其定义环境（通常是全局环境），而map创建的.x存在于map的内部闭包环境中，fun()无法直接访问该环境里.x的实际值。

解决方法 #

方法1：显式传递对象给函数 #

直接将需要保存的对象传入fun，避免依赖环境查找：

fun <- function(obj) {saveRDS(obj, file = "/home/user/file.rds")}
purrr::map(.x = list(iris), .f = ~fun(.x))

若需使用save保存命名对象：

fun <- function(obj, obj_name) {
  assign(obj_name, obj, envir = environment())
  save(list = obj_name, file = "/home/user/file.rdata")
}
purrr::map(.x = list(iris), .f = ~fun(.x, "iris"))

方法2：在匿名函数内直接执行保存 #

利用匿名函数的环境捕获.x的实际值，直接完成保存：

purrr::map(.x = list(iris), .f = ~{
  save(list = ".x", file = "/home/user/file.rdata", envir = environment())
})

此处envir = environment()指定的是匿名函数的闭包环境，.x已被求值为实际数据。

方法3：传递环境并强制求值.x #

若必须保留独立的fun，可将.x的求值环境传入函数，强制获取实际值：

fun <- function(env) {
  # 强制求值promise得到实际数据
  obj <- get(".x", envir = env)
  saveRDS(obj, file = "/home/user/file.rds")
  # 若用save保存：
  # assign(".x", obj, envir = environment())
  # save(list = ".x", file = "/home/user/file.rdata")
}
purrr::map(.x = list(iris), .f = ~fun(environment()))

核心机制说明 #

• purrr的map处理匿名函数~fun()时，.x是一个promise对象：仅存储“待求值表达式”和“求值环境”，不直接存储数据。只有当.x被显式调用（如匿名函数中写.x）时，才会触发求值。
• R的函数遵循词法作用域：fun()定义在全局环境，会优先在全局环境查找.x，而非map的闭包环境。即便指定envir到map的环境，直接save(".x")保存的仍是未求值的promise，必须通过get(".x")强制求值才能获取实际数据。

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