Я пытаюсь написать код R, который загружает аудиофайлы из http://www.freesound.com/ Вот что у меня есть,
html <- read_html("https://freesound.org/search/?
q=sheep&g=1&f=duration%3A%5B0+TO+%2A%5D+type%3A%22wav%22&page=9#sound")
cast <- html_nodes(html, ".title")
indi = seq(2,length(html_text(cast))+1)
ca <- html_nodes(html, ".sample_player_small")
cas <- html_nodes(html, ".user")
for (f in indi){
skip_to_next <- FALSE
down = paste("https://freesound.org/people/", html_text(cas)[f], "/sounds/", xml_attrs(ca[[f]]
[["id"]],"/download/", xml_attrs(ca[[f]])[["id"]],"__",html_text(cas)[f],"__",html_text(cast)
[f],".wav",sep = "")
tryCatch(download.file(down,tf <- tempfile(fileext = ".wav"), method = "libcurl", mode = "wb"),
error = function(e){ skip_to_next <<- TRUE })
if(skip_to_next) { next }
}
Звуковые файлы (формата .wav), которые в конечном итоге загружаютсяпочти одинакового размера (даже если они имеют разную длину) и повреждены.