test_that("loading works", {
d <- get_ECI_data('module-2-tutorial')
expect_true(all(c('Y', 'D') %in% colnames(d)))
expect_true(!("M2_experiment" %in% ls(environment())))
expect_error(get_ECI_data('asdfasdf'), 'unloadNamespace')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.