如何用R的sendmailR发送带滚动框的kableExtra格式DataFrame邮件？

要实现用kableExtra生成带滚动框的HTML表格并通过sendmailR发送，需要解决两个核心问题：将kable表格转换为可识别的HTML字符串，以及配置邮件以HTML格式渲染内容。以下是修正后的完整代码：

library(dplyr)
library(kableExtra)
library(sendmailR)

set.seed(123)
random_df <- tibble(
  column1 = sample(1:100, 10, replace = TRUE),     
  column2 = runif(10, min = 0, max = 1),          
  column3 = sample(LETTERS, 10, replace = TRUE),   
  column4 = rnorm(10, mean = 50, sd = 10)        
)

# 生成带滚动框的HTML表格
html_table <- random_df %>%
  kbl(format = "html") %>%
  kable_styling(full_width = FALSE) %>%
  as.character() %>%
  # 添加横向滚动框样式，适配大数据量表格
  paste0('<div style="overflow-x: auto; max-width: 100%;">', ., '</div>')

# 配置并发送HTML邮件
sendmail(
  from = "你的发件邮箱",
  to = "收件邮箱",
  subject = "测试：带滚动框的HTML表格邮件",
  msg = list(
    mime_part(
      content_type = "text/html; charset=UTF-8",
      content = html_table
    )
  ),
  control = list(
    smtpServer = "你的SMTP服务器地址" # 例如"smtp.qq.com"或"smtp.gmail.com"
  )
)

关键说明： #

• 转换HTML字符串：as.character()将kableExtra生成的表格对象转为纯HTML文本，让sendmailR能正确解析。
• 滚动框样式：通过外层<div>的overflow-x: auto属性，实现表格横向滚动，避免大数据量表格超出邮件显示范围。
• HTML邮件配置：msg参数需传入mime_part对象，指定content_type为text/html，确保邮件客户端以HTML格式渲染内容。
• SMTP服务器：control参数中必须配置你的邮箱SMTP服务器地址，部分邮箱还需设置端口、认证信息（例如QQ邮箱需开启SMTP并使用授权码）。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson