## minDate override
  minDate    <-  "2013-01-01"

  srcDir <- "~/git/orch/src/PeerGroups"
  outDir <- gsub("/src/", "/out/", srcDir)

  filesToSource <- c(
                        "00a Params.r"                          
                      , "00b Initialize Project.r"              
                      , "00c NeoSettings.r"                     
                      , "00d Agg Funcs.r"                       
                      , "01 SpotifyPull.r"                      
                      , "02 Spotify Calculate.r"                
                      , "03 Spotify Convert to Nodes_and_Rels.r"
                      , "04 Export to Neo.r"                    
                      )

  .us()
  .g()
  .us(); .us()
  filesToSource <- as.path(srcDir, filesToSource)


  ## Log file is Spotify_log_TSTAMP.txt in the outDir
  logFile <- timeStamp("Spotify_log")
  logFile <- as.path(outDir, logFile, ext="txt")


  f.logfile <- file(logFile, open="wt")
  sink(f.logfile, type="message", append=FALSE)
  sink(f.logfile, type="output",  append=FALSE)


  {
    cls(20)

    # Check that files exist
    if(!all(file.exists(filesToSource))) {
      stop("The following files are not found: \n  ", paste0("'", filesToSource[!file.exists(filesToSource)], "'\n  "), "\n")
    }

    # Verbose messaging
    message("\n\t ", rep("=", 50), "\n\t ", rep("-", 48), "\n\n\t", rep(" ", 20) ,"STARTING\n", "\n\t ", rep("-", 48), "\n\t ", rep("~", 50), "\n\n")
    
    ## Source all of the files
    for (f in filesToSource) {
      message(rep("~", 50), "\nSourcing file '", basename(f), "'\n", rep("~", 50))
      source(f)
    }
  }

  ## reset sink
  sink()
  readLines(logFile)