r - 在 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("[e-mail]") %>%
  from("[e-mail]") %>%
  subject("Data ") %>%
  html_body(html_bod) %>%
  send_message()

标签： rvisualization

Answer 1

我正在尝试做同样的事情。您在这里遇到的一个问题是您的 r 对象bar不是 html 对象。表格和文本应该可以工作。