在r中创建Outlook电子邮件时，如何在电子邮件正文中添加新行？

library(sendmailR)

# 创建电子邮件对象
email <- list(
  from = "sender@example.com",
  to = "recipient@example.com",
  subject = "测试邮件",
  body = "这是第一行<br>这是第二行"
)

# 发送电子邮件
sendmail(email, 
         smtp = list(
           host.name = "smtp.example.com",
           port = 25,
           user.name = "username",
           passwd = "password",
           ssl = FALSE
         ))

email <- list(
  from = "sender@example.com",
  to = "recipient@example.com",
  subject = "测试邮件",
  body = "这是第一行\n这是第二行"
)