R/util_errors.R

In mabafaba/reachR2:

insure.string.is.column.header<-function(df,string,warning=FALSE){
  if(!all(string%in%names(df))){
    if(!warning){ stop(paste(string[!string%in%names(df)],"does not match a column name in the data frame.\n"))}
    else        { warning(paste(string[!string%in%names(df)],"does not match a column name in the data frame.\n"))}
    
    }
    
}

insure.is.single.value<-function(x,warning=F){
  if(length(x)!=1){
    if(!warning){stop(paste(deparse(substitute(x)),"must be a single value"))}
  else         {warning(paste(deparse(substitute(x)),"must be a single value"))}
  }
}

insure.has.data<-function(x){
  if(length(hasdata(x))==0){stop(paste(deparse(substitute(x)), "can not be NULL, NA or an empty string."))}
}

insure.is.matrix<-function(x){
  if(!is.matrix(x)){stop(paste(deparse(substitute(x)), "must be a matrix"))}
}

insure.same.length<-function(x,y){
  if(length(x)!=length(y)){stop(paste(deparse(substitute(x)),"and",deparse(substitute(y)),"must have the same length"))}
}

insure.no.duplicates<-function(x,warning=F){

  if(length(x)!=length(unique(x))){

    if(!warning){stop(paste(deparse(substitute(x)),"has duplicates"))}
    else{     warning(paste(deparse(substitute(x)),"has duplicates"))}
    return(FALSE)
  }
  return(TRUE)
}


insure<-function(that.all,err,warn=NULL){
  if(!all(that.all)){
    if(!is.null(warn)){warning(warn);return(FALSE)}
    else{              stop(err)    ;return(FALSE)}
  }
  else{return(TRUE)}  
  }