# Create a block of three, side-by-side
# articles with three `article()`
# calls inside of `block_articles()`,
# itself placed in `blocks()`
email <-
compose_email(
body =
blocks(
block_articles(
article(
image = "https://i.imgur.com/XMU8yJa.jpg",
title = "Taiwan",
content =
"It is a thriving mosaic of tradition,
culture, and high-tech development,
merging Eastern and Western influences."
),
article(
image = "https://i.imgur.com/aYOm3Tk.jpg",
title = "Japan",
content =
"Japan is an archipelago consisting
of 6,852 islands along East Asia's
Pacific Coast."
),
article(
image = "https://i.imgur.com/ekjFVOL.jpg",
title = "Singapore",
content =
"Singapore is an island city-state
in Southeast Asia. It's lies at the
southern tip of the Malay Peninsula."
)
)
)
)
if (interactive()) email
Run the code above in your browser using DataLab