之前在我的博客里介绍了一个利用R发邮件的方法1,这次我要推荐一个发邮件的包:blastula
,首先,这个包不依赖Java,带来的好处是省去了在你电脑上安装Java这一步,以及避免了后续Java版本更新可能会带来的兼容性问题;其次,推荐这个包最主要的原因是:这个包可以很容易的在邮件正文部分嵌入R Markdown渲染的内容,方便成果分享。关于这个包更多的细节,请查看这个包在GitHub上的源码2,在此就不再赘述了,这里仅从用户层面分享一个笔者应用该包发邮件的例子,代码如下:
创建许可证
生成许可证的代码只需运行一次即可,许可证文件(访问SMTP服务器的唯一凭证)会自动存储在你的电脑里。生成许可证代码如下:
|
|
运行以上代码后,会弹出一个对话框要求你输入邮箱登陆密码,输入后提交即可。这里需要说明的是,创建许可证的另一种方式是使用create_smtp_creds_file()
函数,具体请运行?blastula::create_smtp_creds_file
查看该包帮助文档。
需要说明的是,这个包不光支持Gmail和Outlook,事实上该包对国内用户常用的QQ邮箱、163邮箱和新浪邮箱等也是支持的。各类邮箱POP3和SMTP服务器地址和端口可以参考这篇博客:各类邮箱POP3和SMTP服务器地址和端口3。
定义邮件各要素
以下代码请保存在一个.R格式的文件中,如:head.R,定义好邮件各要素后,运行head.R即可发送邮件。注:笔者建议所有涉及文件保存在一个Poject下面,方便管理。
|
|
定义邮件正文
邮件正文是通过上面提到的body.Rmd文件渲染得到,以下是一个body.Rmd文件的例子。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
--- title: "来自楚新元的问候" output: blastula::blastula_email --- 亲爱的朋友:   您好!近期您可能对**风速和气温之间的关系**比较关注,这里我做了一张图,供参考。顺祝心情愉快,一切顺利! ```{r fig.cap='风速和气温线性拟合图',fig.align='center',warning=FALSE,message=FALSE, echo=FALSE} library(ggplot2) library(RColorBrewer) myColors = c(brewer.pal(5, "Dark2"), "black") ggplot(airquality, aes(Wind, Temp, col = factor(Month))) + geom_point() + geom_smooth(method = lm, se = FALSE, aes(group = 1, col = "All")) + geom_smooth(method = lm, se = FALSE) + scale_color_manual("Month", values = myColors) ``` 参考来源:慕课网。更多信息请参[这里](https://www.imooc.com/video/11582) ---- 楚新元 新疆财经大学  博士研究生 地址: 新疆乌鲁木齐市北京中路449号 邮编:830012 个人主页: <http://cxy.rbind.io> E-mail: [email protected] |
以上body.Rmd文件渲染后的效果如下:
需要指出的是body.Rmd文件的output参数可以不是blastula::blastula_email
,如:设置为rmarkdown::html_document
也是可以的,body.Rmd文件内容请读者自行定制即可。
定义sendmail.R文件
以上部分都是发邮件的准备工作,sendmail.R文件才是发邮件的最关键部分,由于这部分一旦定义好以后基本不需要每次调整,所以笔者把它放在最后说明。
笔者把联系人放在contact.xlsx文件中,contact.xlsx文件里有两个字段:name和address,如果上文提到的收件人“张三”不在contact.xlsx文件中,则需要先把“张三”及邮件地址维护进contact.xlsx文件里。
|
|
一切准备就绪,你只需要运行head.R文件即可发邮件。
Windows下定时发邮件可以参考我之前的博文利用R语言定时自动发邮件。如果不想让自己的电脑当主机整天开着就是为了定时发个邮件,那么你需要掌握travis相关内容。
最后,需要说明的是:这篇文章主要参考了RStudio Blog上发表的一篇关于blatula包的博文。 具体请看这里:https://blog.rstudio.com/2019/12/05/emails-from-r-blastula-0-3/。