test_that("get_subset_df returns a dataframe of all observations", {
one_df <- get_subset_site()
expect_equal(dim(one_df), c(203L, 28L))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.