# 01b Pull Release Info.r

  # ------------------------------------------ #
  #  Basic DB-connection Cleanup               #
  # ------------------------------------------ #
    try(dbDisconnect(con), silent=TRUE)
    try(detach(package:RPostgreSQL), silent=TRUE)
    try(detach(package:RMySQL), silent=TRUE)
  # ------------------------------------------ #


  ## ---------------------------------------- ##
  ##           GENRE & RELEASE DATE           ## 
  ##             QUERY EXECUTION              ##
  ## ---------------------------------------- ##
   qry_timestamp <- timeStamp(frmt=frmt.monthday_time)

    ## PULL FROM DB

    ### This would be sufficient if infinitDB connection working. 
    # DB.Meta <- getReleaseDates(values=SpotifyAdds[["upc"]], id.col="releaseId", id.col.AS="upc", numericValues=TRUE)
    ### Instead using tryCatch:   
    DB.Meta <- tryCatch(error=function(e) { infinitDBNotWorking.metas("DB.Meta") }, 
          getReleaseDates(values=SpotifyAdds[["upc"]], id.col="releaseId", id.col.AS="upc", numericValues=TRUE)
          )
  ## ---------------------------------------- ##


  # ------------------------------------------ #
  #  Basic DB-connection Cleanup               #
  # ------------------------------------------ #
    try(dbDisconnect(con), silent=TRUE)
    try(detach(package:RMySQL), silent=TRUE)
  # ------------------------------------------ #


  ## --------------------------------------------- ##
  ##                SAVE THE DATA                  ##
  ## --------------------------------------------- ##
    f.ind <- paste0("Meta", "_", qry_timestamp)
    fileBackUps[[ f.ind ]] <-
    
         jesus(DB.Meta, dir=dataDir, sub=FALSE, stampFile=TRUE, stampDir=FALSE, summary=FALSE, verbose=FALSE)

    invisible(reproduce((fileBackUps[[f.ind]]), name="file.Meta", clipboard=FALSE, showSample=FALSE))

    # Clean up garbage before saving image
    gcQuietly()


    if (saveAfterEachDataIngest)
      saveImageTo(verbose=FALSE)
  ## --------------------------------------------- ##