test_that("errors if bad parameters", {
library(ExperimentHub)
hub <- ExperimentHub()
myfiles <- query(hub, "FlowSorted.CordBloodCombined.450k")
expect_false(myfiles$ah_id!="EH2256")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.