Отправка визуализаций вместе с таблицей в gmailR

Question

Я пытаюсь прикрепить гистограмму к электронному письму, но не получаю желаемого результата.То есть я возвращаю таблицу, но не могу напечатать гистограмму.

library(ggvis)

bar <- data %>%
  ggvis(~supplier_city, ~no_of_orders, fill="blue") %>% 
  layer_bars()

# importing libraries
library(gmailr)
library(RMySQL)
library(tableHTML)

# preparing the body
msg = tableHTML(data, rownames = FALSE)

html_bod <- paste0("<p> Maximum order Time </p>", time, bar, msg)

# sending mail
use_secret_file("/Users/abhi/Downloads/gmailR.json")

mime() %>%
  to("1234@gmail.com") %>%
  from("1234@p.in") %>%
  subject("Data ") %>%
  html_body(html_bod) %>%
  send_message()

Answer 1

Я пытаюсь сделать то же самое.Одна из проблем, с которой вы столкнулись, заключается в том, что ваш объект r, bar, не является объектом html.Хотя таблица и текст должны работать.