利用scihub自动下载文章的R函数

当我写下这篇文章的时候，我只是单纯地想分享一下电子书，让大家可以看到我写的第11章，《一章书发表：GO语义相似性度量》.

但是推送之后，我又看了一篇，看完，我又觉得我可以写一点点简单的代码来自动化这个过程。

《一章书发表：GO语义相似性度量》是我写过的第一章英文书，出版社会给我寄纸版，不过他们没有给我发电子版，于是我用sci-hub下了，总共13M，sci-hub一直在无敌风火轮地转圈圈，压根就出不来。于是我怒了，点源码，找pdf链接，然后命令行下载（感觉又顺道教会大家一招）。链接分享给大家：

https://sci-hub.tw/downloads-ii/2020-01-21/60/[e-mail]

这无非几步：

1. 通过doi，生成sci-hub链接
2. 读取源代码，抽提出pdf链接
3. 下载pdf

于是我写了一个scihub_dl的函数，三个参数，第一个是doi，第二个是scihub的镜像，可以不理它，第三个是问你是否下载，默认是下载。不管下载与否，函数最终都会返回下载链接。

往期精彩