R 在Google中清理一个列表列表

我从google sheets中检索了一张工作表，并返回了一个列表列表：

sheet <- list(var1 = list(Sys.time(), Sys.time(),NULL),
             var2 = list(NULL,1,2),
             var3 = list("a",NULL,"b"))

---

sheet它是一个嵌套列表。所以我们可以

library(purrr)
map(sheet, ~ map(.x, ~ replace(.x, is.null(.x), NA)))

或使用
base R

lapply(sheet, function(x) lapply(x, function(y) replace(y, is.null(y), NA)))
#$var1
#$var1[[1]]
#[1] "2020-09-13 16:44:56 CDT"

#$var1[[2]]
#[1] "2020-09-13 16:44:56 CDT"

#$var1[[3]]
#[1] NA


#$var2
#$var2[[1]]
#[1] NA

#$var2[[2]]
#[1] 1

#$var2[[3]]
#[1] 2


#$var3
#$var3[[1]]
#[1] "a"

#$var3[[2]]
#[1] NA

#$var3[[3]]
#[1] "b"


或者使用
rrapply

library(rrapply)
rrapply(sheet, f = function(x) replace(x, is.null(x), NA), how = "list")

阅读一个让我更深入研究的答案有多好，现在这个函数
rapply
和
rrapply
（递归应用）在我的学习列表中。感谢您抽出时间@akrun。