R语言文件下载：谁来帮我把这个128个音频下载一下

谁来帮我把这个128个音频下载一下，一下一下点，手都发麻了。链接在这http://download.dogwood.com.cn/online/gfxz2018/index.html。让舍友帮忙下载，结果给我说他打王者荣耀输了8场，今天必须要赢一次。然后我就一个人默默的想办法。

后来我在网上搜到了一个函数——download.file()，它今天可算是救了我一条命。它的作用得R可以从互联网上直接把数据拽下来。其调用格式为：

download.file(url, destfile, method, quiet = FALSE, mode = "w",
              cacheOK = TRUE,
              extra = getOption("download.file.extra"))

主要的参数为：

参数	作用
url	文件的所在地址
destfile	下载后文件要保存的名字
method	提供”internal”, “wininet” (Windows only) “libcurl”, “wget” and “curl”五种method

关于method,在帮助文档中有很详细的说明，这样就不再赘述。

library(rvest)
url<-"http://download.dogwood.com.cn/online/gfxz2018/index.html"
page<-read_html(url,encoding="UTF-8")
durl<-page%>%html_nodes('ul div.info a')%>%html_attrs()  

提取链接

durl2<-list()
for(i in 1:130)
   durl2[i]<-durl[i*2]

durl3<-c(1:length(durl2))  #初始化一个和durl2长度相等的durl3 
for(i in 1:length(durl2))  
   durl3[i]<-durl2[[i]][1]   
durl3 <-durl3[-c(129:130)] #删除最后两个链接，因为那是两个视频，我不想下载。

提取音频名称

name<-page%>%html_nodes('ul div.info span')%>%html_text()
name<-name[-c(129:130)] #在这里也删除最后两个视频的名称

给每一个音频名称后面添加‘.mp3’,这样的话下载下来就是MP3格式，否则就没有格式，需要你自己添加后缀,试想一下，128个文件，一个一个修改后缀，那要修改到什么时候，还不如我一个一个去下载，当然如果你懂得批处理的，那倒也无妨。如果你想了解如何在Windows下如何修改文件后缀，可以点击阅读原文查看我之前写的一篇博客。

name2<-paste(name,'.mp3')

开始下载

for(i in 1:length(name2))
 download.file(url=durl3[i],destfile=name2[i])

OK，下载完成，我需要的128个听力音频下载完成。这里是部分截图。

注：
转载请注明原文链接：http://blog.csdn.net/wzgl__wh
公众号：跟着菜鸟一起学R语言