.g()
setScience("Spotify_API_V2", create=FALSE, subl=FALSE, load=FALSE)

foldersToShip <- c("streams", "tracks", "users")
folders.local <- data.p(foldersToShip, setnames=TRUE)

folder.S3_base <- s3_p("SpotifyV2", root="cucumbers")
# folders.remote <- as.path(folders.local, foldersToShip)

## Confirm no trailing slash
folders.local <- gsub("/$", "", folders.local)


s3_sync(from=folders.local, to=folder.S3_base, put_insted_of_sync=FALSE, recursive=TRUE)