To contain all of the block-based HTML block_*() calls, we should use the blocks() function. We can pass the resulting blocks object to either of the body, header, and footer arguments of compose_email().

blocks(...)

## Arguments

...

One or more block_*() calls.

## Examples

# This is an example of how a
# title and text looks in each of
# the three content areas
email <-
compose_email(
blocks(
block_title("This is a Title in the **Header**"),
block_text("This is text in the **Header**.")
),
body =
blocks(
block_title("This is a Title in the **Body**"),
block_text("This is text in the **Body**.")
),
footer =
blocks(
block_title("This is a Title in the **Footer**"),
block_text("This is text in the **Footer**.")
)
)

if (interactive()) email