删除R中的一元变量

我想了解，如果变量是一元的，并且只包含一个值，如何从R中的数据帧中删除变量。有时，我的数据框架中包含数千个变量，我的第一步就是去掉这些变量（通常是从数据仓库中移交给我的）

我知道我可以像这样删除列

drops <- c("x","z")
DF[,!(names(DF) %in% drops)]

---

drops我认为这应该根据您的定义识别一个“非一元”变量：

nonunary <- function(x) length(unique(x))>1

DF[sapply(DF,nonunary)]