如何结合rapply()和mapply()，或者如何递归地使用mapply/Map？

我想知道是否有一种简单的方法来组合以下功能rapply( , how = "replace") and mapply()，为了使用mapply()递归地在嵌套列表上。

例如，我有两个嵌套列表：

A = list(list(c(1,2,3), c(2,3,4)), list(c(4,3,2), c(3,2,1)))
B = list(list(c(1,2,3), c(2,3,4)), list(c(4,3,2), c(3,2,1)))

假设我想申请function(x, y) x + y到 A 和 B 中的所有相应元素并保留嵌套结构。期望的结果是

result = list(list(c(2,4,6), c(4,6,8)), list(c(8,6,4), c(6,4,2)))

我认为这应该是一个mapply()类似物rapply(x, f, how = "replace")，但不知道如何整合它们。有人可以给我一些建议吗？

另一个简单的问题是，嵌套列表或多维数组对于密集计算来说通常哪个更快？非常感谢任何评论！

或者你可以编写一个递归函数结合Map为了实现这一点，只要 A 和 B 具有相同的结构，它就可以工作：

s <- function(x, y) tryCatch(x + y, error = function(e) Map(s, x, y))
s(A, B)

[[1]]
[[1]][[1]]
[1] 2 4 6

[[1]][[2]]
[1] 4 6 8


[[2]]
[[2]][[1]]
[1] 8 6 4

[[2]][[2]]
[1] 6 4 2

不确定是否可以使用rapply在本例中，它递归地循环遍历单个列表。但是为了同时递归地循环两个列表，您需要更高级别的递归吗？我错了吗？