R/helper.R

Defines functions is.emptydf

is.emptydf <- function(val){
  if(inherits(val,"data.frame")){
    if(nrow(val)==0){
      return(TRUE)
    } else {
      return(FALSE)
    }
  }
  if(is.null(val)){
    return(TRUE)
  }
  if(is.na(val)){
    return(TRUE)
  }
  return(FALSE)
}

Try the bdvis package in your browser

Any scripts or data that you put into this service are public.

bdvis documentation built on June 9, 2022, 5:08 p.m.