catch the case in CTS where 2 IUPAC names exist

40152eef · uchem-massbank · eb7bdb76 · 40152eef
Commit 40152eef authored 11 years ago by uchem-massbank
--- a/R/createMassBank.R
+++ b/R/createMassBank.R
@@ -453,7 +453,7 @@ gatherData <- function(id)
 	}
 	else
 	{
-		iupacName <-infos$synonyms[[ipreferred]][["name"]]
+		iupacName <-infos$synonyms[[ipreferred[[1]]]][["name"]]
 	}
 	# Eliminate duplicate names from our list of 3
 	names <- as.list(unique(c(dbname, iupacName)))