Defines functions extractPathways

Documented in extractPathways

##extract pathay information from database
extractPathways <- function(database){
lapply(database@model@reactions, function(r){
pathway <- NA
if (length(r@notes)>0){
  pathway <- gsub(".*SUBSYSTEM: (.*?)</.*>.*$", "\\1", r@notes)
  pathway <- ifelse(pathway==r@notes, NA, pathway)

Try the BiGGR package in your browser

Any scripts or data that you put into this service are public.

BiGGR documentation built on Nov. 8, 2020, 5:38 p.m.