某次看到这篇 齁甜齁甜!用代码给女朋友每日定时推送睡前小故事_程序人生的博客-CSDN博客_定时推送代码,我也想给我的朋友们发送。奈何我Python用得不灵光,寻思着能否用R来实现。于是我搜了全网,发现没人写这个攻略。于是我决定来写一个。
使用到的R程序包:rvest 和 gmailr。rvest用来抓取故事,gmailr用来发送邮件。
一共分为3步。
第一步:抓取故事
这里我选用了天涯知识库作为爬取对象,因为它的故事格式比较统一。
我们以这篇《铃声》作为案例。链接打开后,右击页面=>选择 "查看网页源代码"。接下来找到故事内容所在的段落,查看它的html结构:
![18e2058905244971a18ac93741f59804.png](https://i-blog.csdnimg.cn/blog_migrate/95f4de69f2ebe30c822db06ae33ed397.jpeg)
我们发现故事内容在<div class="articleContent">下的<p>里,这将是接下来要用到的节点(nodes)。
library(rvest) # 加载程序包
#这是故事《铃声》的链接
link = "http://3g.sbkk8.com/gushihui/guigushiduanpianchaoxiaren/96522.html"
dlink=read_html(link) # dlink存储了从网页爬取的所有信息
Text = html_nodes(dlink,"div.articleContent p") # 从dlink里提取<p>段落节点里的内容
Text2 = html_text(Text) # 抓取<p>的文本
Text3 = paste0(Text2,"nn") # 添加“nn”来分段
story = paste(Text3,collapse = "") # 将Text3的内容整合在一起
到此,第一步结束。story包含了《铃声》的文本,也就是我们要发送的邮件内容。
其实展示的代码还有很多空间进行优化或者定制化,比如添加署名。这些探索就交给各位感兴趣的同学了。
第二步:发送邮件
这里我用了Gmail,所以用了gmailr这个包。配置略有繁琐,如果你用163邮箱,可以用mailR包,配置相对容易。可以参考
FTDdata:R语言--发送邮件(mailR包)zhuanlan.zhihu.com![9e373d87de044dd34d53eeafc11f25cc.png](https://i-blog.csdnimg.cn/blog_migrate/c3c00a9b55e8067b2e09249a4830cad0.png)
那我们继续讲gmailr配置步骤:
- 去https://console.developers.google.com/ 配置Gmail API,教程请参考
![313fb31928dd65382431bf39ca26e0bc.png](https://i-blog.csdnimg.cn/blog_migrate/0aac321d0e29880b592a572fb4397f15.png)
2. 下载你的.json文件,这个是用来本地验证Gmail的。
接下来是用R发送邮件的代码:
library(gmailr)
# xxx.json是你的.json文件
use_secret_file("xxx.json")
# 第一次运行的时候,会跳出网页进行验证/授权
gm_auth_configure(path = "xxx.json")
# 这是为了下次不再验证/能够自动验证
gm_auth(email = TRUE, cache = ".secret")
# 你的Gmail地址
sender = "name@gmail.com"
# 你女朋友的地址
receiver = "girlfriend's email"
# 编辑邮件主体
MyEmail <-
gm_mime() %>%
gm_to(receiver) %>%
# gm_bcc() %>% # 隐蔽抄送[这个功能用于当你有多个(女)朋友需要发送的时候]
gm_from(sender) %>%
gm_subject("今日份睡前小故事") %>% # 设置邮件主题
gm_text_body(story) # 设置邮件内容
# 测试邮件是否正常
gm_create_draft(MyEmail)
# 发送邮件
gm_send_message(MyEmail)
到此,第二步结束。可以把收件人改为自己的邮箱,进行测试是否运行成功。
第三步:设置Windows计划任务
请参照
TichPi:windows定时自动运行R脚本的正确姿势zhuanlan.zhihu.com![c055555ecd820c835169a7aedc9507f9.png](https://i-blog.csdnimg.cn/blog_migrate/8a310f53f50980371ea87bac9d2afc02.jpeg)
至此,你的女朋友每天睡前将会收到你定时发送的恐怖故事,而且每天还不重样。
当然,如果你学会了如何发送恐怖故事,那么你也一定学会了如何发送暖心故事(只是换个爬取的故事库而已)。