Вы можете использовать html_body()
вместо аргумента body
.
Загрузить пакеты:
library(gmailr)
library(tableHTML)
Создание таблицы HTML с использованием tableHTML
:
msg = tableHTML(mtcars)
Добавить абзац перед таблицей:
html_bod <- paste0("<p> This is a test email. </p>", msg)
Создайте MIME
сообщение и отправьте его:
mime() %>%
to("1234@gmail.com") %>%
from("1234@pharmeasy.in") %>%
subject("Data City Wise") %>%
html_body(html_bod) %>%
send_message()
Вот так выглядит электронная почта в gmail:
![gmail_output](https://i.stack.imgur.com/WcIw6.png)