r - 用 R 下载 png/jpg

Question

我想从 this site 下载所有图片但下载照片后，所有的都已损坏。我应该怎么做才能成功下载它们？

我的代码:

library(XML)
dir.create('c:/photos')
urls<-paste("http://thedevilsguard.tumblr.com/page/",1:1870,sep="")
doc<-htmlParse(urls[1])
links<-unique(unlist(xpathApply(doc,'//div[@class="timestamp"]/a',xmlGetAttr,'href')))
for (i in 1:length(links)){
  doc2<-htmlParse(links[i])
  link<-xpathApply(doc2,'//div[@class="centre photopage"]//p//img',xmlGetAttr,'src')[[1]][1]
  download.file(link,paste("C:/photos/",basename(link),""))
}

Answer 1

所以看起来你在Windows下。下载二进制文件时，必须指定模式为二进制，例如

download.file(link, ..., mode = 'wb')

见 ?download.file详情。