R/checkDupVarnames.R

In tbep-tech/tbepRSparrow: RSPARROW: An R system for SPARROW modeling

#'@title checkDupVarnames
#'@description Checks for duplicate `sparrowNames` in the dataDictionary.csv file and outputs 
#'            list of duplicates as message in console window \\cr \\cr
#'Executed By: dataInputPrep.R \\cr
#'@param data_names data.frame of variable metadata from data_Dictionary.csv file
#'@param batch_mode yes/no character string indicating whether RSPARROW is being run in batch 
#'       mode



checkDupVarnames<-function(data_names,batch_mode){
  #test for duplicate sparrowNames
  
  
  dupSparrow<-data_names$sparrowNames[duplicated(data_names$sparrowNames)]
  msgDupSparrow<-""
  if (length(dupSparrow)!=0){
    for (i in dupSparrow){
      message(paste("Duplicate sparrowNames found : ",i,sep="\n"))
      if (batch_mode=="yes"){
        cat(paste("Duplicate sparrowNames found : ",i,sep="\n"))
        if (i==dupSparrow[length(dupSparrow)]){
          cat("\n \n")
        }
      }      
    }
    
  }
  #test for duplicate data1UserNames 
  msgDupUserNames<-""
  dupUserNames<-data_names$data1UserNames[duplicated(data_names$data1UserNames)]
  dupUserNames<-dupUserNames[which(!is.na(dupUserNames))]
  if (length(dupUserNames)!=0){
    for (i in dupUserNames){
      message(paste("Duplicate data1UserNames found : ",i,sep="\n"))
      if (batch_mode=="yes"){
        cat(paste("Duplicate data1UserNames found : ",i,sep="\n"))
        if (i==dupUserNames[length(dupUserNames)]){
          cat("\n \n")
        }
      }      
    }
    
  }
  
  
}#end function