# NOT RUN {
# Create an HTML fragment that
# contains an image
img_file_path <-
system.file(
"img",
"test_image.png",
package = "blastula")
img_file_html <-
add_image(
file = img_file_path)
# Include the image in the email
# message body by simply referencing
# the `img_file_html` object
email <-
compose_email(
body = "
Hello!
Here is an image:
{img_file_html}
")
# }
Run the code above in your browser using DataLab