junfei
事实上看了一下download.file的帮助,window的method改成"wininet"应该就行了
不过我测了一下,这样下载下来的文件会报错,换成curl::curl_download()
就行,你可以试试装一下curl这个包
install.packages("curl")
代码
urlink <- 'http://www.biomet.co.at/pictures/'
aa <- readLines(urlink, encoding = 'UTF-8')
linkformat <- '/wp-content/gallery/.*jpg.*'
bb <- aa[grep(linkformat, aa)]
bb.jpgs = gsub(".*(http.*?.jpg).*","\\1", head(bb))
dir.create("c:/r4r")
lapply(bb.jpgs, function(fn){
curl::curl_download(fn, destfile = paste0("c:/r4r/",basename(fn)))
})