## Not run:
# # get pathways source = "kegg"
# ## library(KEGG.db)
#
# # Create new environment to save data:
# gper.env <- new.env()
#
# # paths <- get_pathways(source="kegg",all_paths=FALSE,envir = gper.env)
# # when prompted introduce species as listed
# # hsa
# # if all_paths set to TRUE. All pathways are downloaded automatically
# # if all_paths set to FALSE. Introduce list of pathways separated by ","
# #hsa00010,hsa00020,hsa04670,hsa04672,hsa04710,hsa04720,hsa04722,hsa04730
#
#
# # get pathways source = "reactome"
# ## library(reactome.db)
# #paths <- get_pathways(source="reactome",all_paths=FALSE,envir=".GlobalEnv")
# # when prompted introduce species as listed
# # Homo sapiens
# # when prompted introduce prefix to be assigned to pathways
# #HSA
# # if all_paths set to TRUE. All pathways are downloaded automatically
# # IF all_paths set to FALSE, select a subset of pathway identifiers from
# # list. Separated by ","
# 1500931,1299503,...
# ## End(Not run)
Run the code above in your browser using DataLab