R/saveMetabolicData.R

In mmnet: A metagenomic pipeline for systems biology

saveMetabolicData <- function(RefDbcache, path = Sys.getenv("HOME")) {
    RefDbcache <- as.list(RefDbcache)
    RefDbcache$user <- Sys.getenv("USERNAME")
    RefDbcache$date <- date()
    RefDbcache$version <- R.Version()
    RefDbcache$date <- date()
    RefDbcache$network <- constructMetabolicNetwork(path)
    message("saving data to the Specified dir...", domain = NA)
    path <- sprintf("%s/%s", path, ".mmnet")
    if (!exists(path)) 
        dir.create(path, showWarnings = FALSE)
    save(RefDbcache, file = sprintf("%s/%s", path, "RefDbcache.rda"))
}