## Whereas the original structure is 
##  <dataDir> / featured_playlists_raw_json / DATE / DATETIME / file

## Whereas the original structure is 
##  <dataDir> / featured_playlists_raw_json / DATETIME / file

##  <dataDir> / featured_playlists_raw_json / DATE / DATETIME / file

for (folder in folders_for_featuredplaylists) { 
    datetimestamp <- basename(folder)
    stopifnot(grepl("^\\d+T\\d+$", datetimestamp))
    datestamp <- gsub("T\\d+$", "", datetimestamp)
    newFolder <- paste(dirname(folder), datestamp, datetimestamp, "", sep="/")
    dir.create(dirname(newFolder), showWarnings=TRUE)
    file.rename(folder, newFolder)
}

  files <- extractFilesFromFolder(folder=folder, pattern="^featuredPlaylists", ext="json", full.names=TRUE, recursive=TRUE)