fixed PUBLICATION tag order when drawn from infolist and absent in se…

…ttings
MassBank · Feb 22, 2024 · f2e4271 · f2e4271
1 parent 320f52e
commit f2e4271
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/createMassBank.R b/R/createMassBank.R
@@ -1352,6 +1352,8 @@ readMbdata <- function(row)
   if(getOption("RMassBank")$annotations$publication!="") {
     mbdata[['PUBLICATION']] <- getOption("RMassBank")$annotations$publication
   }
+  if(!is.na(row[["PUBLICATION"]]))
+    mbdata[["PUBLICATION"]] = row[["PUBLICATION"]]
   commentNames <- names(row)[grepl(x = names(row), pattern = "^COMMENT\\.")]
   commentNames <- c(commentNames, names(row)[grepl(x = names(row), pattern = "^COMMENT\\_")])
   commentNames <- commentNames[!is.na(row[commentNames])]
@@ -1422,8 +1424,7 @@ readMbdata <- function(row)
     mbdata[["COPYRIGHT"]] = row[["COPYRIGHT"]]
 
 
-  if(!is.na(row[["PUBLICATION"]]))
-    mbdata[["PUBLICATION"]] = row[["PUBLICATION"]]
+
 
 
   return(mbdata)