Отправить HTML-сообщение с помощью gmailr

Я хочу иметь возможность использовать пакет gmailR для отправки R-генерируемых HTML-отчетов по электронной почте (не как вложения). Я не могу даже отправить базовое письмо электронной почты с помощью gmailr. Я попытался сделать следующее безуспешно и нуждаюсь в некоторой помощи:

library(gmailr)
gmail_auth("oauth.token.json", scope = "compose")

test_email <- mime() %>%
 to("[email protected]") %>%
 from("[email protected]") %>%
 subject("This is a subject") 
test_email$body <- "I wish <b>this</b> was bold"
send_message(test_email)
РЕЗУЛЬТАТ: сообщение успешно отправляется, но тело - это обычный текст - не HTML


Попытка 2

test_email <- mime() %>%
 to("[email protected]") %>%
 from("[email protected]") %>%
 subject("This is a subject") %>%
 html_body("I wish <b>this</b> was bold")
test_email$body
РЕЗУЛЬТАТ: test_email $body - NULL


Попытка 3

test_email <- mime() %>%
 to("[email protected]") %>%
 from("[email protected]") %>%
  subject("This is a subject") 
test_email$body <- html_body("I wish <b>this</b> was bold")
РЕЗУЛЬТАТ: Ошибка в mime $parts: оператор $недействителен для атомных векторов


Попытка 4

test_email <- mime() %>%
 to("[email protected]") %>%
 from("[email protected]") %>%
 subject("This is a subject") 
test_email$parts <- c(html_body("I wish <b>this</b> was bold"),text_body("plain"))
РЕЗУЛЬТАТ: Ошибка в mime $parts: оператор $недействителен для атомных векторов

Ответы

Ответ 1

Хорошо - это то, что я пробовал:

library(gmailr)
gmail_auth('mysecret.json', scope = 'compose') 

test_email <- mime() %>%
 to("[email protected]") %>%
 from("[email protected]") %>%
 subject("This is a subject") %>%
 html_body("<html><body>I wish <b>this</b> was bold</body></html>")
send_message(test_email)

И voila (немецкий gmail...) введите описание изображения здесь

Кажется, что трюк состоял в том, чтобы просто вставить настоящий HTML-код, включая <html> и <body>, чтобы понять gmail.