将R's Blastula与Rmarkdown，HTML和CSS结合起来

如何解决将R's Blastula与Rmarkdown，HTML和CSS结合起来

我正在与Blastula撰写电子邮件。 我喜欢Blastula的块函数创建漂亮的列的方式。我还要求使用RMarkdown和CSS。可以将两者结合吗？

下面的代码有一个使用Blastula块函数的示例，然后是一个使用markdown的无块示例。

具体地说，我将如何：

• 居中并增加“字幕”的字体大小
• 在中添加斜体
• 在有用链接下左对齐首页，关于，隐私政策

代码

library(blastula)

# Blastula block example
email <-
  compose_email(
    body =
      blocks(
        block_title("Title Goes Here"),block_articles(
          article(
            title = "Sub title",content = "This is going to be really interesting"
          )
        ),block_articles(
          article(
            title = "About This Email",content =
              "You agreed to receive email from Me Inc. when news warrants."
          ),article(
            title = "Contact Info",content =
              "Inuvik,northwest Territories,Canada"
          ),article(
            title = "Useful Links",content = 
              "Home About Privacy Policy"
          )
        )
      )
  )

email


# RMarkdown Example
body_text <-
  glue(
    "
Hello,I just wanted to let you kNow that the *thing* that
you asked me for is ready to pick up. So,come over
and do that.

Cheers,{sender_name}
"    
  ) %>% md()

footer_text <- glue("Sent on {sending_date}.")

# Compose the email message
email <- compose_email(
  body = body_text,footer = footer_text
)
email