我有一个嵌套的列表列表，其中包含一些数据框。但是，数据框可以出现在列表中的任何级别。我想要最终得到的是一个平面列表，即只有一个级别，其中每个元素只是数据帧，所有其他内容都被丢弃。
我已经为此提出了一个解决方案，但它看起来非常笨重，我确信应该有一个更优雅的解决方案。
重要的是，我正在寻找基本 R 中的一些东西，它可以提取嵌套列表内任何级别的数据帧。我尝试过unlist()并涉足rapply()但不知何故没有找到令人满意的解决方案。
示例代码如下：示例列表，我实际上想要实现的目标，以及我自己不太满意的解决方案。谢谢你的帮助！
# extract dfs from list
# example of multi-level list with some dfs in it
# note, dfs could be nested at any level
problem1 <- list(x1 = 1,
x2 = list(
x3 = "dog",
x4 = data.frame(cats = c(1, 2),
pigs = c(3, 4))
),
x5 = data.frame(sheep = c(1,2,3),
goats = c(4,5,6)),
x6 = list(a = 2,
b = "c"),
x7 = head(cars,5))
# want to …因此，我将我的包提交给 CRAN，但我对何时将示例包装在\donttest或中感到困惑\dontrun。我有几个不同的案例：
我已经弄清楚，对于 (1) 我不应该用\donttestor换行\dontrun。对于 (5) 我应该将整个函数包装在if(interactive()){}.
这仍然留下第 2-5 种情况，我不确定是否应该将示例包裹起来还是不包裹起来。我猜绘图没问题，但不确定读/写文件。非常感谢任何提示或引导我到有明确解释的地方。谢谢。
我已经为此苦苦挣扎了一段时间，但无法解决这个问题。
我想生成一个可反应的表格，但有条件地格式化带有背景阴影的每个（数字）列。我知道如何将其应用于列，只要我手动输入每个列的名称即可。但关键是该表可以有任意数量（可能很大）的列，所以我想自动将其应用于所有列。
重要的是，列代表不同尺度的不同变量，因此必须对每列单独应用格式。我想秘密是创建一个大的命名列表，即coldefs用其他列名称扩展该列表。
下面是一个只有一列的示例。我试图扩展这个，但是陷入了一片混乱，所以我不会在这里粘贴混乱的代码来迷惑任何人。非常感谢任何帮助。
library(reactable)
df <- mtcars
df$mpg[2] <- NA
# Colour map for conditional formatting
orange_pal <- function(x){
if (!is.na(x)){
rgb(colorRamp(c("#ffe4cc", "#ffb54d"))(x), maxColorValue = 255)
} else {
"#e9e9e9" #grey
}
}
# function which returns background colour based on cell value (using colour map)
stylefunc <- function(value) {
normalized <- (value - min(mtcars$mpg)) / (max(mtcars$mpg) - min(mtcars$mpg))
color <- orange_pal(normalized)
list(background = color)
}
# list giving column formatting (using style function)
coldefs <- list(mpg …