context("query")
test_that("`query_dataset` works", {
res <- query_dataset("SDY269", "elisa")
expect_is(res, "data.frame")
expect_length(res, 42)
expect_error(query_dataset("SDY269", "invalidDataset"))
})
test_that("`query_filePath` works", {
res <- query_filePath("SDY269")
expect_is(res, "data.frame")
expect_length(res, 37)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.