R/rm_empty_cols.R

In edouardschuppert/edouaRd: edouaRd

Defines functions rm_empty_cols

Documented in rm_empty_cols

#' rm_empty_cols
#'
#' @param df Your data frame
#' @return Delete columns containing only NAs.
#' @export

rm_empty_cols <- function(df) {

  df[,!apply(df, 2, function(x) all(gsub(" ", "", x)=="", na.rm=TRUE))]

}