R/utils/dataframes.R

In DDS-MCSM/group-assignment-team-00:

if (!require(stringr)) {
  install.packages("stringr")
}

library(stringr)

getFilename <- function(filename) {
  return (stringr::str_c(str_replace(getwd(), 'map', ''), "/data/",filename, '.RData'))
}

saveDataFrame <-function (df, filename) {
  filename <- getFilename(filename)
  save(df, file=filename)
}

getSavedDataFrame <- function (name) {
  filename <- getFilename(name)
  if (file.exists(filename)) {
    load(filename)
    #dataframes is loaded in the environment like df
    return (df)
  }
  return(NULL)
}