Я столкнулся со следующей проблемой: я создал красивую гибкую таблицу из фрейма данных в R, которую я хотел бы отправить по электронной почте. Я использую htmltools_value для получения HTML-кода гибкой таблицы. Теперь я могу встроить это как htmlbody в свое электронное письмо, которое работает в том смысле, что я успешно отправляю электронное письмо. Однако электронное письмо теряет все цвета и границы, а остальная часть форматирования остается такой же, как определено в гибкой таблице. Может кто сталкивался с подобными проблемами или знает в чем может быть проблема?
require(flextable)
require(RDCOMClient)
header_col2 <- c("","","", "", "2nd header", "2nd header","More headers", "More headers", "More headers", "More headers")
dfTest <- mtcars[c(1:6),c(1:10)]
ft <- flextable(dfTest)
ft <- add_header_row(ft,values = header_col2,top = T,colwidths = c(rep(1,10))) ft <- merge_h(ft, part = "header")
ft <-bold(ft, bold=T, part="header")
ft <-theme_zebra(ft,odd_header = 'red', even_header = 'grey', odd_body = 'lightblue', even_body = "white")
ft <- color(ft, color = "white", part = "header")
ft <- bold(ft, bold = TRUE, part = "header")
ft <- fontsize(ft, size = 11, part = "header")
std_border = fp_border(color="white", width = 1.5)
big_border = fp_border(color="gray", width = 1)
ft <- border_outer(ft, part="all", border = big_border )
ft <- border_inner_v(ft, part="header", border = std_border )
body <- htmltools_value(ft)
# or body <- format(ft, type = "html")
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "[email protected]"
outMail[["subject"]] = "TEST"
outMail[["HTMLbody"]] = body
outMail$Send()