#### Pre-processing #### | |
# Read files | |
fnames <- list.files("mp3/", full.names = T, patt = "*.mp3") | |
# Write metadata for Kaggle dataset | |
ids <- str_extract(fnames, pattern = "[0-9]{4,}") | |
query$Path <- fnames[match(query$Recording_ID, ids)] | |
write.csv(query, "metadata.csv") | |
# Play random file - setWavPlayer in macOS if "permission denied" | |
setWavPlayer('/usr/bin/afplay') | |
play(sample(fnames, 1)) # esc to skip |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment