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)
}
vijaybarve/bdvis documentation built on Jan. 28, 2024, 7:16 a.m.