Email dataframe as table in email body with SendMailR
As an alternative to sendmailR, here's an example using the gt package for converting the table to HTML and the blastula package for sending the email. Both packages are from RStudio: blastula and gt.
library(blastula)
library(gt)
tbl_html <-
mtcars %>%
gt() %>%
as_raw_html()
email <-
compose_email(
body = blocks(tbl_html)
)
email %>%
smtp_send(
to = '[email protected]',
from = '[email protected]',
subject = "Test email with table",
credentials = creds_file("gmail_creds")
)
To set the credentials the first time use (in this case using a gmail address):
create_smtp_creds_file(
file = "gmail_creds",
user = '[email protected]',
provider = "gmail"
)
You can also use markdown in the body.
library "xtable" will help to attach a data frame as table in email. Try this
library(xtable)
body=print(xtable(dataframe,caption = "Heading for the table"), type="html", caption.placement = "top")
Although sending HTML mails with sendmailR is not straighforward, but possible based on a mail discussion with the package author last year (thanks again to Olaf Mersmann for his kind help) - with simply overriding the Content-Type header. E.g.:
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 <- '<[email protected]>'
to <- "<[email protected]>"
subject <- "HTML test"
body <- list(msg)
sendmail(from, to, subject, body, ...)
On the other hand, there is no real need for HTML to present tables or a data.frame in a human-readable format. There is e.g. the ascii package or my pander pkg that can turn R objects to markdown. Quick demo:
> 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 |
+----------------+---------------+----------------+---------------+-----------+
If you want to concatenate this to the e-mail body, use pander.return instead that returns character vector instead of writing to the console. And there are some other available table styles, also some useful panderOptions e.g. to set decimal mark, date format etc: http://rapporter.github.io/pander/