Strips rows containing only NA values from a supplied data frame, and returns the resulting data frame.

strip_na_rows.R

#' Remove rows from data frame containing only NA in pipe-friendly manner
#' @description Accepts a data frame and strips out any rows
#'       containing only \code{NA} values, then returns the resulting data frame.
#' @param A data frame
#' @return A data frame
#' @source \url{http://stackoverflow.com/a/6437778}
strip_na_rows <- function(the_df) {
	the_df[rowSums(is.na(the_df)) != ncol(the_df),]
	return(the_df)
}