Mercurial > repos > proteore > proteore_kegg_pathways_coverage

comparison kegg_identification.R @ 4:dc39f12f96d1 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 6854718828a7478905b41fb92d6f96ab41896e84-dirty
author proteore
date Tue, 14 May 2019 09:04:22 -0400
parents e7b3609160c5
children 042254fb1f8d
comparison
equal deleted inserted replaced
3:e7b3609160c5 4:dc39f12f96d1
69 pathways_list <- sapply(tot_path, function(pathway) names(which(pathways==pathway))) 69 pathways_list <- sapply(tot_path, function(pathway) names(which(pathways==pathway)))
70 return (pathways_list) 70 return (pathways_list)
71 } 71 }
72 72
73 get_list_from_cp <-function(list){ 73 get_list_from_cp <-function(list){
74 list = gsub(";","\t",list)
75 list = strsplit(list, "[ \t\n]+")[[1]] 74 list = strsplit(list, "[ \t\n]+")[[1]]
76 list = gsub("[[:blank:]]|\u00A0|NA","",list) 75 list = gsub("[[:blank:]]|\u00A0|NA","",list)
77 list = list[which(!is.na(list[list != ""]))] #remove empty entry 76 list = list[which(!is.na(list[list != ""]))] #remove empty entry
78 list = unique(gsub("-.+", "", list)) #Remove isoform accession number (e.g. "-2") 77 list = unique(gsub("-.+", "", list)) #Remove isoform accession number (e.g. "-2")
79 return(list) 78 return(list)