在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对象。不过，表格和文本应该可以工作。