如何在r purrr map中显示函数的哪个元素正在被处理？

Question

我想有一个函数，作为它的一部分，向我显示它正在工作的整个元素列表中的哪个元素，以显示该函数在我的列表中的进度。我知道如何使用for循环来实现，我的输入与元素在向量中的数字位置有关，但我如何使用purrr:map来实现呢？

x = c('a', 'b', 'c')

for(i in 1:length(x)) {
  print(paste0(i, '/', length(x), ' complete'))
}

Answer 1

虽然不复杂，但你可以试试 imap() 或 pmap():

library(purrr)

mods <- mtcars %>%
  split(.$cyl) %>%
  imap(~ {Sys.sleep(3) ; mod <- lm(mpg ~ wt, data = .x); cat(.y, "cyl complete\n"); return(mod)})  

4 cyl complete
6 cyl complete
8 cyl complete

或：

dat <- mtcars %>%
  split(.$cyl)

mods <-
  pmap(list(dat, seq_along(dat), length(dat)), ~ {
    Sys.sleep(3)
    mod <- lm(mpg ~ wt, data = ..1)
    cat(..2, "/", ..3, "complete\n")
    return(mod)
  })

1 / 3 complete
2 / 3 complete
3 / 3 complete