可能使用purrr恢复输入值

Question

我想针对以下情况找到解决方法：每次操作失败时，我都希望purrr返回输入值。下面的代码说明了我想要的内容。

library(purrr)

id<-c(1:6)

value<-c(rnorm(5),NA)

df<-data.frame(id,value)

map2_dfr(df$id,df$value,possibly(~{
z<-.y*2
data.frame(.x,.y,z)
 },
data.frame(.x,.y,NA)
)
)

  

Error in data.frame(.x, .y, NA) : object '.x' not found