Nothing
test_that("test example code in getCodeDetail",
{
skip_on_cran()
invisible(capture.output(expect_type(getCodeDetail("SpecWoRMS", 101170), "list")))
invisible(capture.output(expect_type(getCodeDetail("SpecWoRMS", 126437), "list")))
invisible(capture.output(ll <- getCodeDetail("ICES_StockCode", "had-34")))
expect_equal(ll$detail$Id, 136539 )
}
)
test_that("test getCodeDetail does not fail when code wrong",
{
invisible(capture.output(expect_message(getCodeDetail("SpecWoRMS", "wrong_code"), "Code wrong_code not found")))
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.