r - purrr 関数を使用して、ネストされた 2 つのリストを並列に反復処理する

Question

私はいくつかのpurrr機能をいじっていて、（私の喜びに）purrr::at_depth(.x, .depth, .f, ...)の略であることがわかりましたpurrr::map(x, . %>% map(fun))。

質問: 2 つのネストされたリストを並行して反復処理したい場合、同様の関数または同じことを行う適切な "方法" はありますか?purrr

例として：

x <- list(list(10, 20), list(30, 40))
y <- list(list(1, 2), list(3, 4))

a <- list()
for(i in seq_along(x)) {
   a[[i]] <- map2(x[[i]], y[[i]], `+`) 
}

これは機能しますが、かなり汚いので、for ループを避けたいと思います。