imap() 没有按我的预期工作，我错过了什么？

Question

所以在这里，当我使用索引 (".y") 浏览列表时，我遇到了 imap 错误。下面我已经让它与 map2 一起工作，但这很令人困惑，因为我制作 map2() 函数的方式与我认为 imap 会做的方式完全相同。但显然不是，否则不会出错。

我很想尽可能地理解 purrr 的逻辑，谁能告诉我这是怎么回事？

library(purrr)

l1 <- list(a='a', b='b')



# single brackets -  'missing value where TRUE/FALSE needed'
imap(l1, ~{
  y1 <- names(l1)[.y]
  if(y1 == 'a') out1 <- TRUE
  if(y1 == 'b') out1 <- FALSE
  out
})
# double brackets -  subscript out of bounds
imap(l1, ~{
  y1 <- names(l1)[[.y]]
  if(y1 == 'a') out1 <- TRUE
  if(y1 == 'b') out1 <- FALSE
  out
})


# emulating what I think imap() does 
map2(l1, seq_along(l1), ~{
  y1 <- names(l1)[.y]
  if(y1 == 'a') out1 <- TRUE
  if(y1 == 'b') out1 <- FALSE
  out1
})

Answer 1

如果列表中存在名称，.y 是列表的名称，而不是索引。所以，

names(l1)['a'] #returns
#[1] NA

这解释了'missing value where TRUE/FALSE needed'。

和

names(l1)[['a']]

返回

名称错误(l1)[["a"]] : 下标越界

你需要的是-

purrr::imap(l1, ~{
  if(.y == 'a') out1 <- TRUE
  if(.y == 'b') out1 <- FALSE
  out1
})

#$a
#[1] TRUE

#$b
#[1] FALSE

Answer 2

也许你只是需要

imap(l1, ~ if(.y == 'a')  TRUE else FALSE)

$a
[1] TRUE

$b
[1] FALSE