test_that("it can parse a simple person", {
input <- list(first_name = "Foo", last_name = "Bar, Ph.D.")
expect_equal(
`environment<-`(resource()$parser, environment())(),
utils::person("Foo", "Bar, Ph.D.")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.