R/pathway_append.R

In CBIIT-CGBB/OmicPath: OmicPath

pathway_append <- function(db=db, gene.list=gene.list, pathway.ID=pathway.ID,
                           pathway.name=pathway.name, creator=creator, 
                           version=version, mydate=NULL){
  out.s               <- db$pathway.list;
  out.s[[pathway.ID]] <- gene.list;
  out.b   <- rbind(db$pathway.table, 
                   data.frame(pathway.ID = toString(pathway.ID), 
                              pathway.name = toString(pathway.name)));
  creator <- creator;
  if (is.null(mydate)){
    mydate <- date();
  } else {
    mydate <- mydate;
  }
  gene.u.num   <- length(unique(unlist(out.s)))
  GSEA.db <- list(pathway.list=out.s, pathway.table=out.b, 
                     pathway.version=list("version:" = version, "Date:" = mydate, 
                                          "Gene number:" = gene.u.num, "Creator:" = creator));
  return(GSEA.db);
}