用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下。当你下载二进制文件时，你必须指定模式为二进制，例如

​​3210

查看?download.file了解详情。

Answer 2

首先，请尝试下载一个。这样做：

link = "http://29.media.tumblr.com/tumblr_m0q2g8mhGK1qk6uvyo1_500.png" 
download.file(link,basename(link)) 

这是否行得通？

我注意到它是一个PNG，而不是一个JPEG，所以也许你试图以JPEG格式阅读它。