context("basic functionality")
test_that("we can do something", {
system.file("extdata", "hottest_year.xml", package="burrp") %>%
read_burp() -> burp_df
expect_that(burp_df, is_a("data.frame"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.