R中树列表结构的递归映射

我在R中有一个树结构列表（任意深度的列表列表）。这是通过在R中获取多维数组并使用purrr包中的函数

array\u tree

形成的。我想对树的顶端应用一个函数（例如，递归映射），而不必展平结构

---

我怎样才能做到这一点呢？

我意识到，实际上，

at_depth

和

vec_depth

函数正是我想要的

at_depth(a, vec_depth(a))

---

对投票结果不予评论？