test_that("get_events_lists() generates lists for github event actor and repo",{
y <- create_events_df()
expect_equal(ncol(y),4)
expect_equal(nrow(y),30)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.