R/removeEmptyRow.R

In holgerman/toolboxH: Helperfunctions for R

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param df PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname removeEmptyRow
#' @export 
removeEmptyRow = function(df) {
  nrow1 = nrow(df)

  leerrows = apply(df,1, function(x) sum(x =="",na.rm = T ) + sum(is.na(x)) == dim(df)[2])
  message('Removed ',sum(leerrows), '  rows where entries are only NA or ""...')
  df[leerrows ==F,]
}