Отправить 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