Update R/methods.R

R/methods.R

@@ -247,9 +247,10 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
             pmids2 <- c(pmids2, a[[1]][p])
           }
         }
+        pmindices = grep(x = pmids2, pattern = "pubmed")
+        pmids2 = pmids2[pmindices]
         pmids <- unique(as.vector(pmids2))
-        pmindices = grep(x = pmids, pattern = "pubmed")
-        pmids = pmids[pmindices]
+
         # Rassemblement des different pubmed-ID de chaque interaction
         pmids3 <- c()
         b <- length (pmids)