## PathBank
#library(AnnotationHub)
#ah <- AnnotationHub()
#qr <- query(ah, c("pathbank", "Homo sapiens"))
##tbl_pathbank <- qr[[1]] # metabolomics
#tbl_pathbank <- qr[[2]] # proteomics
#ids <- names(tbl_pathbank)[-c(1:4)]
#id <- ids[1] # Uniprot ID
#subs <- unique(tbl_pathbank$`Pathway Subject`)
#subject <- subs[6] # Protein
# M <- pathbank2list(tbl_pathbank, subject, id)
Run the code above in your browser using DataLab