10

我正在尝试使用 SendMailR 发送数据帧。我可以将其作为附件发送，格式相当好。但是我想在电子邮件正文中发送数据框。我尝试了 capture.output、print、sprintf 但甚至无法关闭格式。

例如，我尝试了以下语法

for (i in 1:nrow(df)){
 MSG = c(MSG,rownames(df)[1],as.character(unlist(df[i,])),'\n')
} 
MSG = sprintf('%-10s',MSG)
sendmail(from,to,subject,msg = list(MSG,attachment1,attachment2 ... ))

换句话说，我认为可能有必要将我的数据帧转换为带有 /n 和 sprintf('s-10%') 等的格式并将其存储在 MSG 中。有人可以指出我正确的方向吗？

4

3 回答 3

18

虽然发送 HTML 邮件sendmailR并不简单，但可能基于去年与包作者的邮件讨论（再次感谢 Olaf Mersmann 的友好帮助） - 只需覆盖Content-Type标题即可。例如：

msg <- mime_part('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  <meta name="viewport" content="width=device-width, initial-scale=1.0"/>
  <title>HTML demo</title>
  <style type="text/css">
  </style>
</head>
<body>
<h1>HTML demo</h1>
</body>
</html>')

## Override content type.
msg[["headers"]][["Content-Type"]] <- "text/html"

from    <- '<foo@example.com>'
to      <- "<bar@example.com>"
subject <- "HTML test"
body    <- list(msg)
sendmail(from, to, subject, body, ...)

另一方面，没有真正需要 HTML 来呈现表格或以data.frame人类可读的格式。例如，可以将 R 对象转换为降价的ascii包或我的pkg。pander快速演示：

> library(pander)
> panderOptions('table.split.table', Inf)
> pander(head(iris, 3))

-------------------------------------------------------------------
 Sepal.Length   Sepal.Width   Petal.Length   Petal.Width   Species 
-------------- ------------- -------------- ------------- ---------
     5.1            3.5           1.4            0.2       setosa  

     4.9             3            1.4            0.2       setosa  

     4.7            3.2           1.3            0.2       setosa  
-------------------------------------------------------------------

> pander(head(iris, 3), style = 'grid')


+----------------+---------------+----------------+---------------+-----------+
|  Sepal.Length  |  Sepal.Width  |  Petal.Length  |  Petal.Width  |  Species  |
+================+===============+================+===============+===========+
|      5.1       |      3.5      |      1.4       |      0.2      |  setosa   |
+----------------+---------------+----------------+---------------+-----------+
|      4.9       |       3       |      1.4       |      0.2      |  setosa   |
+----------------+---------------+----------------+---------------+-----------+
|      4.7       |      3.2      |      1.3       |      0.2      |  setosa   |
+----------------+---------------+----------------+---------------+-----------+

如果要将其连接到电子邮件正文，请改用pander.return返回字符向量而不是写入控制台。还有一些其他可用style的 table ，也有一些有用的，panderOptions例如设置小数点、日期格式等：http ://rapporter.github.io/pander/

于 2014-02-21T09:40:40.700 回答
8

库“xtable”将有助于将数据框作为表格附加到电子邮件中。尝试这个

   library(xtable)

   body=print(xtable(dataframe,caption = "Heading for the table"), type="html", caption.placement = "top")
于 2016-08-21T19:13:46.957 回答
1

作为 的替代方法sendmailR，这里有一个使用gt将表格转换为 HTML 的blastula包和用于发送电子邮件的包的示例。这两个包都来自 RStudio：blastula和gt。

library(blastula)
library(gt)

tbl_html <- 
  mtcars %>% 
  gt() %>%
  as_raw_html()

email <-
  compose_email(
    body = blocks(tbl_html)
    )

email %>%
  smtp_send(
    to = 'recipient@email.com',
    from = 'sender@gmail.com',
    subject = "Test email with table",
    credentials = creds_file("gmail_creds")
  )

设置第一次使用的凭据（在这种情况下使用 gmail 地址）：

create_smtp_creds_file(
  file = "gmail_creds",
  user = 'sender@gmail.com',
  provider = "gmail"
)

您也可以在正文中使用降价。

于 2021-04-25T18:27:58.183 回答