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

corrected pubmed bug

parent 6882cf31
......@@ -253,18 +253,24 @@ pubmed_id <- function(Final.List.Redondant, Name, run) {
b <- length (pmids)
if (b > 1) {
for (o in 1:length(pmids)) {
pmids3 <- paste(pmids3, pmids[o], sep = "|")
if(length(x = grep(pmids[o], pattern = "pubmed")) == 1) {
pmids3 <- paste(pmids3, pmids[o], sep = "|")
}
}
pmids3 <- substr(pmids3, 2, nchar(pmids3))
}
if (b == 1) {
pmids3 <- paste(pmids3, pmids)
if(length(grep(x = pmids, pattern = "pubmed")) == 1) {
pmids3 <- paste(pmids3, pmids)
}
}
tmp <- Inter.red[indi,]
for (k in 1:length(pmids)) {
Inter.partialRed <- rbind(Inter.partialRed, t(as.matrix(tmp[(1:dim(tmp)[1])[tmp[,6] == pmids[k]][1],])))
}
unredundant[nbl,6] <<- pmids3
if(length(pmids3 != 0)) {
unredundant[nbl,6] <<- pmids3
}
# On complete la derniere colonne du reseau avec le nombre de pubmed-ID trouves pour chaque interaction
unredundant[nbl,13] <<- length(grep(pmids, pattern = "^pubmed:" ))
Inter.red <- Inter.red[-indi,]
......
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