move_files_from_dl_folder_to_ingest <- function(expected_projName="ContentAnalysis") {
  stopifnot(getProjName() == expected_projName)

  files_dl <- extractFilesFromFolder(folder="~/Downloads", recursive=TRUE, pattern="iTunes Hidden Music Trends", ext="tsv", full=TRUE)

  files_to <- ingest.p(basename(files_dl))

  for (f in files_to)
    if (file.exists(f))
      zArchive(f, addTimeStamp=TRUE)

  file.rename(from=files_dl, to=files_to)  
}