是否可以通过 RDCOM 发送可视化?

Is it possible to send visualizations through RDCOM?

我是 R 编程的新手,已经开始了一个小项目来向 R 的世界介绍自己。我想做的是帮助我的一位同事自动化他每周执行的手动电子邮件流程.

邮件内容包括excel中创建的图表、DOW指数价格、我们公司的股票价格,以及他每周手动更新的一些评论。

我已经弄清楚如何使用 RDCOMClient 包发送电子邮件,但我想做的是将图表和股票价格整合到电子邮件正文中(如果可能,采用 HTML 格式)他也拉。我希望将所有这些自动化,所以他所要做的就是更新评论和 运行 脚本。

这里的关键限制因素是目标受众,这将面向那些真正不喜欢打开电子邮件附件的高管。他们想在 phone 上打开一封电子邮件,获取相关信息,然后继续。

到目前为止我的程序是这样的:

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "test@test.com"
outMail[["subject"]] = "R Test"
outMail[["body"]] = "Hello"                   
outMail$Send()

当然可以,请先保存图片。然后使用HTMLbody插入图片使用HTML代码如下:

library(htmlTable)

png("pictest.png")
plot(iris$Sepal.Length)
dev.off()

StockPrice <- "25.25"

MyHTML <- paste0("<html><p>This is a picture.</p> 
<img src='C:/Users/iwes/Desktop/RWorkingFolder/pictest.png' >
<p> Our StockPrices is: $", StockPrice,
"<p>here is a table:</p>",
htmlTable(head(iris,5)))

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "test@test.com"
outMail[["subject"]] = "R Test"
outMail[["HTMLbody"]] =  MyHTML                  
outMail$Send()