R/saveThis.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Saves data in basic data structure
#'
#' @param data data to be saved
#' @param name name of data
#' @param destination list to save data in
#'
#' @return
#' @export
#'
#'
saveThis <- function(data, name, destination) {

  if(!hasArg(data)) {
    stop("No data given.")
  }

  if(!hasArg(name)) {
    name <- readline("Name: ")
  }

  if(!hasArg(destination)) {
    destination <- whatToDo("Where to save?", "dat", "info", "raw.data", "cache")
  }


  if(destination == "dat") {
    assign("dat", list.append(dat, data), pos = .GlobalEnv)
    names(dat)[length(dat)] <- name
    assign("dat", dat, .GlobalEnv)
  }

  if(destination == "info") {
    assign("info", list.append(info, data), pos = .GlobalEnv)
    names(info)[length(info)] <- name
    assign("info", info, .GlobalEnv)
  }

  if(destination == "raw.data") {
    assign("raw.data", list.append(raw.data, data), pos = .GlobalEnv)
    names(raw.data)[length(raw.data)] <- name
    assign("raw.data", raw.data, .GlobalEnv)
  }

  if(destination == "cache") {
    assign("cache", list.append(cache, data), pos = .GlobalEnv)
    names(cache)[length(cache)] <- name
    assign("cache", cache, .GlobalEnv)
  }



  message(paste0(name, " saved in ", destination, "."))

}