如何创建一个循环以下载链接中的所有照片?

时间:2019-01-16 19:58:18

标签: r api loops web-scraping iteration

我有一个数据框,其中每个巴西代表的API的url页位于名为uri的列中。我有访问此URL的代码,获取照片的URL,然后下载此照片。

但是巴西有513名代表,我无法浏览这些链接来下载每张照片。您能帮我解决这个问题吗?

已编辑:由于我的循环工作正常,因此无法获取所有照片,因为该网站不允许我这样做。因此,我在sys.sleep(0.3)上添加了一行,但是它仍然无法正常工作。

文件(“ dep-legislatura56-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
}

0 个答案:

没有答案