Отправить отформатированную HTML-таблицу, созданную с помощью rmarkdown, поверх Outlook из R - PullRequest
Новая
       43

Отправить отформатированную HTML-таблицу, созданную с помощью rmarkdown, поверх Outlook из R

0 голосов
/ 24 сентября 2019

У меня есть следующая хорошо отформатированная таблица, созданная с помощью rmarkdown и сохраненная в виде файла table.rmd. 

library(RDCOMClient)
kable(mtcars[1:5, 1:6]) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), 
                full_width = T, 
                position = "left", 
                font_size = 13,
                fixed_thead = list(enabled = T, background = "#c5d9f1")) %>% 
  column_spec(1, bold = T, border_right = T) %>%
  column_spec(2, width = "5cm", background = "yellow") %>% 
  row_spec(4:5, bold = T, color = "white", background = "grey")

Теперь я хочу использовать следующий код для отправки этого файла / таблицы через Outlook в видетело письма, сохраняя исходное форматирование таблицы. 


rmarkdown::render("table.Rmd", "html_document")

OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "email@abc.com"
outMail[["subject"]] = paste0("Report ", Sys.Date() - 1)

df_html <- read table.html as html so that the df_html gets correctly displayed as well formatted html table. 

outMail[["HTMLBody"]] = df_html

outMail$Send()

Как мне это сделать?Я уверен, что если я смогу прочитать table.html как html сам в R, я смогу это сделать.Поэтому, если это правильно, помогите мне создать df_html, который я могу назначить outMail [["HTMLBody"]], чтобы, надеюсь, он заработал.

...