Commit c53775b7 authored by Simon Gosset's avatar Simon Gosset
Browse files

correction bug imex mint

parent 68cb18e9
......@@ -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) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment