Question

我运行一个包含SQL查询的R脚本并导入.csv文件并每天将其邮寄给经理和操作。但我期待自动化这个过程，所以请帮助我完成自动化的步骤。

.csv文件包含日期戳。

mydb = dbConnect(MySQL(), user='*******', password='******', dbname='********', host='*****8***')

setwd('C:\\Users\\******\\Work\\2. ****\\26. Cluster_Bags')

#Change the data here 
startdate='2017-07-24'

sql_text=paste("SELECT ********************************,


FROM ********************
WHERE ***********
                ")
ClusterwiseBag=dbGetQuery(mydb,sql_text)

#Creates a file with the name "Clusterbag date.csv"           
b=paste("Clusterbag",startdate,".csv",sep="")

write.csv(ClusterwiseBag,b)

Answer 1

这就是我自动化脚本的方法：

首先将startdate更改为：
startdate = Sys.Date（）

如果您愿意，可以添加自动电子邮件，例如：     库（mailR）
    send.mail（from =＆＃34; from@gmail.com"，
          to = c（＆＃34; to1@gmail.com" ;,＆＃34; to2@gmail.com"），
          subject =＆＃34;更新＆＃34;，body =＆＃34; ＆＃34;，authenticate = T，
          smtp = list（host.name =＆＃34; smtp.gmail.com＆＃34;，port = 465，
                      user.name =＆＃34; from＆＃34;，passwd =＆＃34; 123456＆＃34;，ssl = T），
          attach.files = c（b））

然后使用RStudio加载项taskscheduleR让脚本每天运行。

运行R脚本的自动化

1 个答案: