如何在 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

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

How to show which element of function is being processed in r purrr map

dictionary

r

seq

purrr