R/base_refineParameter.R

In yzheng74/permseq: Mapping protein-DNA interactions in highly repetitive regions of the genomes with prior-enhanced read mapping

.refineParameters = function(para){

  if(is.character(para)){
    if(para=="" | tolower(para)=="null" | tolower(para) == "na" ){
      para <- NULL
    }else if(!is.na(as.numeric(para))){
      para <- as.numeric(para)
    }
  }else{
    if(is.na(para))
       para <- NULL
  }
    return(para)

}