R/loadRawData.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Loads raw.data from saved rawdata.RData file
#'
#' @return
#'
#'
#'
loadRawData <- function() {

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

  if(!file.exists("./Rdata/rawdata.RData")) {
    message("raw.data has not been stored yet.")
  }

  else if("raw.data" %in% objects()) {
    if(ok("raw.data is already loaded. Still load?")) {
      assign("raw.data", readRDS("./Rdata/rawdata.RData"), pos = .GlobalEnv)
    }
  }

  else {
    assign("raw.data", readRDS("./Rdata/rawdata.RData"), pos = .GlobalEnv)
  }

}