Nothing
context("Test getLocData")
test_that("Testing errors and warnings are given", {
skip_on_cran()
expect_warning(test <- getLocData(country = "foo"),
regexp = 'No Data returned for this country')
expect_warning(test <- getLocData(StudyUnitId=12),
regexp = 'No Data returned for this StudyUnitId')
expect_error(getLocData(StudyUnitId=12,country='tom'),
regexp = 'Cannot use both StudyUnitId and country at the same time')
})
test_that("Testing data is returned", {
skip_on_cran()
expect_is(test <- getLocData(country='India'), 'data.frame')
expect_equal(ncol(test), 16)
expect_is(test <- getLocData(StudyUnitId=169), 'data.frame')
expect_equal(ncol(test), 16)
})
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.