R/BetterDropNA.R

In kwdoyle/kevtools: Kevin's Useful Functions for Stats, etc.

#' Drop rows where every column specified is NA
#'
#' pretty self-explanatory
#' @param dat the input data frame
#' @param checkCols columns to check where data is missing
#' @export
#' @examples
#' newdat <- BetterDropNA(dat, checkCols=c("column1", "column3"))

BetterDropNA <- function(dat, checkCols) {
  out <- dat[rowSums(is.na(dat[,checkCols, drop = FALSE])) != ncol(dat[,checkCols]), ]
  return(out)
}