每天定时打开某个网页_如何用R给心爱的姑娘定时推送睡前恐怖故事-CSDN博客

本文链接：https://blog.csdn.net/weixin_39884412/article/details/111369679

某次看到这篇齁甜齁甜！用代码给女朋友每日定时推送睡前小故事_程序人生的博客-CSDN博客_定时推送代码，我也想给我的朋友们发送。奈何我Python用得不灵光，寻思着能否用R来实现。于是我搜了全网，发现没人写这个攻略。于是我决定来写一个。

使用到的R程序包：rvest 和 gmailr。rvest用来抓取故事，gmailr用来发送邮件。

一共分为3步。

第一步：抓取故事

这里我选用了天涯知识库作为爬取对象，因为它的故事格式比较统一。

我们以这篇《铃声》作为案例。链接打开后，右击页面=>选择 "查看网页源代码"。接下来找到故事内容所在的段落，查看它的html结构：

我们发现故事内容在<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

那我们继续讲gmailr配置步骤：

去https://console.developers.google.com/ 配置Gmail API，教程请参考

How to send email from R and Gmailwww.infoworld.com

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)

到此，第二步结束。可以把收件人改为自己的邮箱，进行测试是否运行成功。