我有一个从 R 运行的数据库查询，它可以有多个填充 NA 的列，其中一些列我需要进一步向下，但如果所有值都是 NA，则可以删除一个特定列。
我通常使用 purrr::discard(~all(is.na(.))) 删除全部 NA 的列，但由于此数据帧可以包含多个带有 NA 的列，我只想删除一个我正在努力删除的列使其特定于 tidyverse 解决方案中的列。
我目前有这个解决方法：
if(sum(is.na(Orders$Originator)) == nrow(Orders)) {
Orders <- Orders %>%
select(-Originator)
}
但如果我可以在 tidyverse 解决方案中使用它，它会提高可读性。希望有人可以提供帮助！
谢谢！