1

我有这个数据框：

library(sendmailR)
library(pander)

dput(s)
structure(list(Description = c("ServerA", "ServerB", "ServerC", 
"ServerD", "ServerE", "ServerF"), Value = c("2", "2", "100", 
"100", "80", "20")), .Names = c("Description", "Value"), row.names = c(NA, 
6L), class = "data.frame")

我想把这个数据框放在一个漂亮的表格中，然后通过电子邮件发送给一些人。

我用 pandoc 试过了，但表格看起来很简单：

 t<-pandoc.table.return(s, caption="Server CPU Utilization")

    from <- "user@example.com"
    to <- c("end_users@example.com")
    subject <- paste(Sys.time()," Servers CPU utilization")
    body <- t                
    mailControl=list(smtpServer="mailhost.example.net")

    sendmail(from=from,to=to,subject=subject,msg=body,control=mailControl)

有没有其他方法可以将数据框格式化为漂亮的表格以作为电子邮件发送？表格必须在电子邮件正文中，而不是作为附件。

4

2 回答 2

5

下面是什么意思？

桌子看起来很朴素

如果您不喜欢默认的多行格式，您还可以为表格选择其他一些降价格式，例如传递style = 'grid'给。或者你的意思是桌子分崩离析/用非等宽字体看起来很丑？结果将取决于电子邮件客户端，因此我宁愿选择发送 HTML 邮件并指定等宽字体系列，或者以 HTML 格式呈现表格。pandoc.table.return

HTML 版本的快速演示：

  1. 初始化所需的 R 包：

    library(sendmailR)
library(xtable)

  2. 通过将静态部分与动态创建的 HTML 表连接起来构建 HTML 正文：

    msg <- mime_part(paste('<!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"/>
</head>
<body>', print(xtable(s), type = 'html'), ',</body>
</html>'))

  3. content-type用未记录的 hack覆盖：

    msg[["headers"]][["Content-Type"]] <- "text/html"

  4. 使用给定的主题将邮件发送给您指定的收件人：

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

结合 markdown 和 HTML 版本：

msg <- mime_part(paste('<!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"/>
</head>
<body><div style="font-family: monospace;">', gsub(' ', '&nbsp;', paste(pander.return(s, caption = "Server CPU Utilization", style = 'grid'), collapse = '<br>')), '</div></body>
</html>'))
msg[["headers"]][["Content-Type"]] <- "text/html"
sendmail(from, to, subject, list(msg))

这里的技巧是使用内联 CSS 设置font-familyto monospace，同时用不间断空格替换文档中的所有空格。另一个（而且更优雅）的解决方法可能是将降价放在preHTML 标记之间：

msg <- mime_part(paste('<!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"/>
</head>
<body><pre>', paste(pander.return(s, caption = "Server CPU Utilization", style = 'grid'), collapse = '\n'), '</pre></body>
</html>'))
msg[["headers"]][["Content-Type"]] <- "text/html"
sendmail(from, to, subject, list(msg))
于 2014-05-05T15:30:28.550 回答
0

如果 dput 是您的 data.frame。

我用这个。

Date=sys.Date()-1
date2 <- paste("My subject of mail", Date, sep = " - ")
setwd("/xyz")
newdir <- paste("output", Sys.time(), sep = "_")
dir.create(newdir)#, showWarnings = FALSE)
setwd(newdir)

######
mydoc = bsdoc( title = 'my document')
options( "ReporteRs-fontsize" = 8 )
mydoc = addParagraph(mydoc, value = "Hi All, \n\nPlease check attached summary.")
mydoc = addParagraph(mydoc, value = "Summary:")
MyFTable = FlexTable( data = dput, add.rownames = FALSE, header.cell.props = cellProperties( background.color = "#FAEBD7" )
                      , header.par.props = parProperties(text.align = "center" ))
MyFTable = setColumnsColors( MyFTable, j=1, colors = '#F0F8FF' )
MyFTable[ , ] = parProperties( text.align = 'center')
MyFTable = setColumnsColors( MyFTable, j=ncol(dput), colors = '#F0F8FF' )
mydoc = addFlexTable( mydoc, MyFTable )
writeDoc( mydoc, file = "op2.html" )

send.mail(from = "abc@xyz.com",
          to = c("abc@xyz.com"),
          subject = date2,
          body = "op2.html",
          html = TRUE,
          smtp = list(host.name = "smtp.gmail.com", port = 465, user.name = "abc@xyz.com", passwd = "xyz@123", ssl = TRUE),
          authenticate = TRUE,
          send = TRUE)

但我正在寻找发送邮件的更好选择，例如邮件正文中的图像或格式良好/压缩的图像。

于 2017-08-02T11:40:24.093 回答