如何根据R中数据帧中的列值发送电子邮件？
这是我用来发送电子邮件警报的代码，以日期为条件…有一个datafarme df，它有一列日期…如果日期列包含今天的日期，那么它应该发送一封电子邮件…这是我正在使用的代码如何根据R中数据帧中的列值发送电子邮件？,r,email,if-statement,R,Email,If Statement,这是我用来发送电子邮件警报的代码，以日期为条件…有一个datafarme df，它有一列日期…如果日期列包含今天的日期，那么它应该发送一封电子邮件…这是我正在使用的代码 library(lubridate) library(mailR) mydata<-data.frame(Name=c("Me","My","I"),date=c("2018-1-20","2018-2-20","2018-3-20")) mydata$date<-as.Date(mydata$date)
library(lubridate)
library(mailR)
mydata<-data.frame(Name=c("Me","My","I"),date=c("2018-1-20","2018-2-20","2018-3-20"))
mydata$date<-as.Date(mydata$date)
if(mydata$date==Sys.Date() {
sender <- "abc@gmail.com"
recipients <- c("abc@gmail.com","xyz@gmail.com ")
email <- send.mail(from = sender,
to = recipients,
subject="Sending Email via R",
body = "It is Important",
smtp = list(host.name = "smtp.gmail.com", port = 465,user.name="abc@gmail.com" , passwd="XXX",ssl=T),
authenticate = T,
send = T)
}
else email<-NULL
库（lubridate）
图书馆（邮递）
如果你在编码方面有问题，那么你应该表达你的困难<代码>如果