R/saveThatShit.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Saves main data frames
#'
#' @return
#' @export
#'
#'
saveThatShit <- function() {


  setwd(info[["working directory"]])

  if(!dir.exists("./Rdata")) {
    dir.create("./Rdata")
  }

  saveRDS(info, "./Rdata/info.RData")

  if(file.exists("./Rdata/info.RData")) {
    message("info file saved.")
  }

  saveRDS(data0, "./Rdata/data0.RData")

  if(file.exists("./Rdata/data0.RData")) {
    message("data0 file saved.")
  }

  saveRDS(results, "./Rdata/results.RData")

  if(file.exists("./Rdata/results.RData")) {
    message("results file saved.")
  }

  saveRDS(protein.groups, "./Rdata/protein_groups.RData")

  if(file.exists("./Rdata/protein_groups.RData")) {
    message("protein.groups file saved.")
  }


}