R/check.name.R

In nishanmudalige/BOLD.R: A package to interface with the Barcode of Life Database through R

#' @export
check.name <- function(object){
  
  the.name <- deparse(substitute(object))
  if( !exists(the.name) ){
    warning( paste("Object '",the.name,"' not found",sep="") )
    return(FALSE)
  } else {
    return(TRUE)
  }
  
}