## SAVE

  # SHALLOW Copy
  start.time <- proc.time()
  DB.raw.plus.agg.cols.plus.Spotify <- DB.raw
  
  f.ind <- paste0("DB.raw.plus.agg.cols.plus.Spotify", "_", qry_timestamp)
  fileBackUps[[ f.ind ]] <-
       jesusForData(DB.raw.plus.agg.cols.plus.Spotify, verbose=TRUE, RDS=TRUE)
  
  rm(DB.raw.plus.agg.cols.plus.Spotify)

  jesusForData(DB.raw, verbose=TRUE, RDS=TRUE)
  gcQuietly()
  saveImageTo()
  end.time <- proc.time()
  cat("\n\n======================\nTOTAL TIME:\n")
  print(end.time - start.time)