在dplyr多层嵌套函数中遭遇promise评估错误，寻求解决方案

错误原因 #

你遇到的"promise already under evaluation"错误，核心是内部函数repeatNest与外部延迟求值对象cols的环境冲突：cols是通过enquos(...)创建的延迟引用对象，在嵌套的map调用中求值时，触发了递归引用问题。此外原代码还存在两个逻辑缺陷：无法循环处理多个传入的嵌套列，且未处理sub = NULL的边界情况。

修正方案 #

我们可以通过统一收集嵌套列 + 循环/迭代处理多层嵌套的方式解决问题，同时避免环境冲突：

方案1：循环实现（直观易读）

nestLoop <- function(dframe, main, sub = NULL, ...) {
  # 收集所有需嵌套的列，过滤空值
  nest_cols <- c(enquo(main), enquo(sub), enquos(...)) %>% purrr::compact()
  
  # 初始嵌套：按第一个列分组
  result <- dframe %>% nest_by(!!nest_cols[[1]]) %>% ungroup()
  
  # 循环处理剩余嵌套列
  if (length(nest_cols) > 1) {
    for (col in nest_cols[-1]) {
      result <- result %>%
        mutate(data = purrr::map(data, ~ .x %>% nest(data = -!!col)))
    }
  }
  
  result
}

# 测试调用
nestLoop(mtcars, vs, am, gear)

方案2：reduce迭代（tidyverse风格）

用purrr::reduce替代循环，更符合tidyverse的函数式编程习惯：

nestLoop <- function(dframe, main, sub = NULL, ...) {
  nest_cols <- c(enquo(main), enquo(sub), enquos(...)) %>% purrr::compact()
  
  purrr::reduce(nest_cols, function(df, col) {
    df %>% mutate(data = purrr::map(data, ~ .x %>% nest(data = -!!col)))
  }, .init = dframe %>% nest_by(!!nest_cols[[1]]) %>% ungroup())
}

关键改进点 #

1. 统一收集嵌套列：将main、sub和可变参数...统一整理为延迟引用列表，同时过滤空值，兼容sub = NULL的场景。
2. 避免内部函数嵌套：用循环或reduce替代原有的内部函数repeatNest，彻底解决环境冲突导致的promise求值错误。
3. 多层嵌套逻辑清晰：从初始嵌套开始，逐层对data列进行嵌套操作，确保每一步的嵌套对象明确。

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