preview_mailmerge | R Documentation |
preview_mailmerge(x)
x |
mailmerge_preview object, from mail_merge |
A 'shiny' gadget, see also shiny::runGadget
mail_merge
## ---- input-data -------------------------------------------------------- dat <- data.frame( email = c("friend@example.com", "foe@example.com"), first_name = c("friend", "foe"), thing = c("something good", "something bad"), stringsAsFactors = FALSE ) ## ---- markdown-message -------------------------------------------------- msg <- ' --- subject: "**Hello, {first_name}**" --- Hi, **{first_name}** I am writing to tell you about **{thing}**. {if (first_name == "friend") "Regards" else ""} Me ' ## ---- display shiny gadget ---------------------------------------------- if (interactive()) { dat %>% mail_merge(msg) %>% preview_mailmerge() }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.