在R中使用mailr包将文本消息和html表作为消息体发送

在

send.mail的主体部分我想发送此html表和“Hello”消息。然而，它要么接收我的消息，要么接收html表

body=“High\u loss\u gain\u Imprsn\u accounts.html”
--->此行在邮件正文中打印我的表格。
body=“Hello”
-->这行打印Hello

我怎样才能把邮件放在一起？
如果我使用tableHTML包而不是xtable并编写代码，它将解决我在带有主题的邮件上添加两个表的问题

send.mail(from = "abc@gmail.com",
          to = c("abc@gmail.com"),
          subject = mail_subject,
          body = "High_loss_gain_Imprsn_accounts.html",
          html=TRUE,
          attach.files = "c:/users/rkathuria/Documents/ACCOUNT_BLOCK_NO_COST_MONITOR.xlsx",
          smtp = list(host.name = "aspmx.l.google.com", port = 25),
          authenticate = FALSE,
          send = TRUE)

mail\u body 1我之前一直在思考这个问题，我能找到的最佳解决方案是使用
xtable
生成一个带有标题的html表格：

mail_body1<-tableHTML(High_loss_gain_Imprsn_accounts, widths = rep(100, 11), caption="Hi, High gain loss account", collapse = 'separate')
mail_body<-paste0(mail_body1,mail_body1)
mail_subject<-paste("Account Block No Cost Monitor ", Sys.Date()-1)

send.mail(from = "abc@gmail.com",
          to = c("abc@gmail.com"),
          subject = mail_subject,
          body = mail_body,
          html=TRUE,
          attach.files = "c:/users/rkathuria/Documents/ACCOUNT_BLOCK_NO_COST_MONITOR.xlsx",
          smtp = list(host.name = "aspmx.l.google.com", port = 25, ssl = TRUE),
          authenticate = FALSE,
      send = TRUE)

表格
table <- data.frame(a = LETTERS[1:6],
           b = LETTERS[7:12])
mailR::send.mail(from = "XXXXXXXX",
                 to = "XXXXXXXX",
                 subject = "Hello World",
                 body = xtable::print.xtable(xtable::xtable(table, 
                                                            caption = "Hello World"), 
                                             type = "html", 
                                             caption.placement = "top",
                                             include.rownames = FALSE),
                 html = TRUE,
                 smtp = list(host.name = "smtp.gmail.com", 
                             port = 465, 
                             user.name = "XXXXXXXX",            
                             passwd = "XXXXXXXX", 
                             ssl = TRUE),
                 authenticate = TRUE,
                 send = TRUE)