R/storeRawData.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Stores and deletes raw.data
#'
#' @return
#' @export
#'
#'
storeRawData <- function() {

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

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

  saveRDS(raw.data, "./Rdata/rawdata.RData")

  if(file.exists("./Rdata/rawdata.RData")) {
    message("Raw data saved.")
    rm(raw.data, envir = .GlobalEnv)
  }

}