context("parcel_create")
test_that("parcel_create behaves", {
df <- data.frame(
name = c("Lucy", "Karthik"),
email = c("example@email.com", "example@email.com")
)
template <- "Dear {name},
This is a friendly email from me.
XO,
Lucy"
parcel <- parcel_create(df,
sender_name = "Lucy",
sender_email = "lucydagostino@gmail.com",
subject = "Happy email!",
template = template)
expect_is(parcel, "data.frame")
expect_identical(names(parcel), c("To","From","Subject","body"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.