Как создать цикл для загрузки всех фотографий внутри ссылок? - PullRequest
Новая
       22

Как создать цикл для загрузки всех фотографий внутри ссылок?

0 голосов
/ 16 января 2019

У меня есть фрейм данных со страницей URL API каждого депутата в Бразилии в столбце с именем uri. У меня есть код, чтобы посетить этот URL, получить URL фотографии и затем загрузить эту фотографию.

Но в Бразилии 513 депутатов, и я не мог просмотреть эти ссылки, чтобы загрузить каждую фотографию. Не могли бы вы помочь мне с этим вопросом?

Отредактировано : теперь, когда мой цикл работает, я не могу получить все фотографии, потому что сайт не позволяет мне. Поэтому я добавил строку с sys.sleep(0.3), но она все еще не работает.

Файл ("dep -lawlatura56-14jan2019.csv") находится здесь: https://gist.github.com/gabrielacaesar/940f3ef14eaf29d18c3780a66053bbee

Вот мой код для загрузки картинки первого ряда: 

deputados <- fread("dep-legislatura56-14jan2019.csv")

while(i <= 514) {
  url <- deputados$uri[i]
  api_content <- rawToChar(GET(url)$content)
  pessoa_info <- jsonlite::fromJSON(api_content)
  pessoa_foto <- pessoa_info$dados$ultimoStatus$urlFoto
  download.file(pessoa_foto, basename(pessoa_foto), mode = "wb")
  Sys.sleep(0.3)
  i <- i + 1
}
...