correction bug imex mint

R/methods.R

@@ -247,7 +247,32 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
         j <- j + 1
       }
       if (nbl > 1) {
-        unredundant <<- rbind(unredundant, as.matrix(t(c(Inter.red[i,], "NA"))))
+        
+        pubmed = as.matrix(t(c(Inter.red[i,], "NA")))[,6]
+        
+        pubmed = unlist(strsplit(pubmed, split = "\\|"))
+        
+        a = grep(x = pubmed, pattern = "pubmed:")
+        
+        pubmed2 = pubmed[a[1]]
+        
+        if(length(a) > 1) {
+          
+          a[-1]
+          
+          for(k in a) {
+          
+            pubmed2 = paste(pubmed2, pubmed[k], sep = "\\|")
+          
+          }
+        }
+        
+        row = as.matrix(t(c(Inter.red[i,], "NA")))
+        
+        row[,6] = pubmed2
+        
+        unredundant <<- rbind(unredundant, row)
+        
       }
       # Recuperation des differents pubmed-ID
       if (length(indi) > 1) {