R/data_filtering.R

In MerrimanLab/merrimanR: merrimanR

#' remove empty columns from data.frame
#' @author Tanya Flynn
#'
#' @param data The data.frame to remove empty columns from
#'
#' @export
#'
#'
remove_empty_cols <- function(data){
  if(missing(data)){
    stop("Need to provide data.frame")
  }
  if(!is.data.frame(data)){
    stop("Need to use a data.frame")
  }
  return(Filter(function(x)!all(is.na(x)), data))
}