在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对象b不是html对象。表格和文本应该可以。