文章所用到的代码主要来源于网络,经过了我的稍许调整,此外文章提到了我自己运行时碰到一些问题及相应解决办法。
一、下载mailR包
利用mailR包,可以将R程序的结果及附件发送给他人。
首先需要下载mailR包。
install.packages("mailR")
注意,mailR需要在JAVA环境下运行,因此请先确保电脑里安装了jdk。
如果安装了jdk和mailR包后,library(mailR)依旧显示“Error: ‘rJava’程辑包或名字空间载入失败”,这是环境变量的设置上的原因。一般的解决办法是重新设置环境变量,网上相关教程有很多。但是我把jdk直接安装在了R同一目录下也同样解决了调用rJava失败这个问题(譬如我的安装位置是C:\R\R-3.2.5\bin\x64)。
调用mailR包应该还需要下载stringr包等,一般我们在下载mailR包时R软件就会直接帮我们自动下载,不需要我们自己安装。但如果有包无法安装或者下载速度非常慢,建议换个镜像,国外镜像经常会不稳定,建议换成国内的地址(Rstdio点击Tools,选择Global Option,在出现的对话框中选择Packages,点击change,将镜像换到清华大学等国内的就好)。如果还是下载不了R包的话,可以自己去官网(https://mirrors.tuna.tsinghua.edu.cn/CRAN/)手动下载,把下载下来的包解压到library文件夹即可。
接下去就可以在Rstdio里运行下面的代码,从而通过R直接发送邮件。
二、发送邮件
首先,自定义一个函数mysendmail。修改标出的两个地方(发送邮箱和邮箱密码),其他部分一般不需要修改。
library(mailR)
mysendmail =function(wd,to,cc,subject,msg,files=array()){
if(is.na(files)[1]{
attach.files <- NULL
}else{
attach.files <-paste(wd,files,sep='/')
}
from = "XXXX@XX.com" #这里输入发送者的邮箱
send.mail(from = from,
to = to,
cc = cc,
subject = subject,
body = msg,
smtp = list(host.name = "smtp.exmail.qq.com", port =465,user.name=from,passwd = "XXXXXXXX", ssl =TRUE),
#passwd = “ “这里输入发送邮箱的密码
authenticate = TRUE,
send = TRUE,
attach.files = attach.files,
encoding = "utf-8")
}
接下去通过下面的代码调用上面定义好的函数。
例如我需要发送一封邮件给XXXXXX@163.com,邮件主题为Test,正文为“This is a test!",附件的本地地址为C:\Users\Administrator\Desktop\Test.csv,同时将该邮件抄送给YYYY@qq.com。则相应的代码如下:
result <- "Test.csv"
receiptant <- c('XXXXXX@163.com')
message <- c("This is a test!")
mysendmail(wd = "C:/Users/Administrator/Desktop",
subject = "Test", msg = message, to = receipant, cc = c('YYYY@qq.com'), files = result)
如果代码运行报错,先查看一下邮箱地址有没有写错。
三、自动运行R程序
有时候,我们需要程序每天定时运行处理数据并将结果发送到邮箱。
通过打开“控制面板”——“管理工具”——“任务计划程序”——“创建基本任务”实现这一目的。
按照向导提示的步骤进行操作,如果希望每天定时发送邮件,则在触发器这一步中选择“每天”;如果希望每周特定时间(如周一到周五晚上21:00运行R脚本)则选择“每周”。
注意在操作这一步时应选择“启动程序(T)”,在“程序或脚本”一栏中输入Rscript.exe的地址(如C:\R\R-3.2.5\bin\x64\Rscript.exe),在“添加参数(可选)”中填入要运行的R脚本地址(如C:\Users\Administrator\Desktop\Rtest.R)。
或者简单粗暴地直接在“程序或脚本”一栏中填入Rscript和R脚本两者的地址(如C:\R\R-3.2.5\bin\x64\Rscript.exe C:\Users\Administrator\Desktop\Rtest.R),在创建完成时电脑会直接将R脚本地址转移到“可选参数”栏中。
如果上述R软件自动发送邮件的步骤还有哪里表述不清楚的,欢迎和我交流!