Names were in all caps

R/createMassBank.R

@@ -535,8 +535,20 @@ gatherData <- function(id)
 	if(iupacName == ""){
 		warning(paste0("Compound ID ",id,": no IUPAC name could be identified."))
 	}
+
+	if(toupper(dbname) == toupper(synonym)){
+		synonym <- dbname
+	}
+	
+	if(toupper(dbname) == toupper(iupacName)){
+		iupacName <- dbname
+	}
+	
+	if(toupper(synonym) == toupper(iupacName)){
+		synonym <- iupacName
+	}
 	
-	names <- as.list(unique(toupper(c(dbname, synonym, iupacName))))
+	names <- as.list(unique(c(dbname, synonym, iupacName)))
 	
 	##If no name is found, it must be supplied in one way or another
 	if(all(sapply(names, function(x) x == ""))){