Update R/methods.R

R/methods.R

@@ -238,8 +238,6 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
       # Recuperation des differents pubmed-ID
       if (length(indi) > 1) {
         pmids <- unique(Inter.red[indi,6])
-        pmindices = grep(x = pmids, pattern = "pubmed")
-        pmids = pmids[pmindices]
         pmids <- as.matrix(pmids)
         pmids2 <- c()
         for (n in 1:length(pmids)) {
@@ -250,6 +248,8 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
           }
         }
         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)