Nothing
`getCategoryTerms` <-
function(catIDs, catType, strict=FALSE, missing=c('name', 'keep', 'remove'), nameLength='all', addID=FALSE) {
missing=match.arg(missing)
if (toupper(catType) %in% c('GO', 'GO.BP', 'GO.CC', 'GO.MF', 'DOLITE', 'KEGG', 'REACTOME.PATH', 'CABIO.PATH')) {
catTerms = switch(toupper(catType),
'GO'=.getGOTerms(catIDs),
'GO.BP'=.getGOTerms(catIDs),
'GO.CC'=.getGOTerms(catIDs),
'GO.MF'=.getGOTerms(catIDs),
'DOLITE'=getDOLiteTerms(catIDs),
'KEGG'=getPATHTerms(catIDs),
'REACTOME.PATH'=getREACTOMEPATHTerms(catIDs),
'CABIO.PATH'=getcaBIOPATHTerms(catIDs))
if (NA %in% unlist(catTerms)) {
print('Warning: some category IDs do not have names!')
if (strict) stop('Interrupt conversion!')
}
temp <- unlist(catTerms[catIDs])
if (missing != 'keep') {
if (missing == 'name') temp[temp %in% NA] <- names(temp[temp %in% NA])
else temp <- temp[!(temp %in% NA)]
}
if (tolower(nameLength) != 'all') {
if ((length(nameLength) == 1) & is.numeric(nameLength)) {
tempNames <- names(temp)
dots <- rep('...', length(temp))
dots[which(nchar(temp) <= nameLength)] <- ''
temp <- paste(strtrim(temp, nameLength), dots, sep='')
names(temp) <- tempNames
# tempNames <- names(temp)
# dots <- rep('...', length(temp))
# dots[which(nchar(temp) <= nameLength)] <- ''
# temp <- paste(sapply(temp, substr, 1, nameLength), dots, sep='')
# names(temp) <- tempNames
} else {
stop('nameLength can not be recognized!')
}
}
if (addID) {
tempNames <- names(temp)
temp <- paste(temp, names(temp), sep='::')
names(temp) <- tempNames
}
return(temp)
} else {
print('Slot categoryType is not recognized! No mapping ...')
return(catIDs)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.