Nothing
country <- c("ALB", "CHN")
povline <- c(1.9, 2.0)
year <- c(2002, 2002)
ppp <- c(100, 50)
coverage_type <- c("national", "rural")
test_that("Incorrect inputs trigger errors", {
expect_error(build_query_string_cl(country = "ALB",
povline = povline,
year = year)
)
expect_error(build_query_string_cl(country = country,
povline = 2.0,
year = year)
)
expect_error(build_query_string_cl(country = country,
povline = povline,
year = 2000)
)
expect_error(build_query_string_cl(country = country,
povline = povline,
year = year,
ppp = 100)
)
expect_error(build_query_string_cl(country = country,
povline = povline,
year = year,
coverage_type = "urban")
)
})
test_that("Country level queries are built correctly", {
query <- build_query_string_cl(country = country,
povline = povline,
year = year)
expect_equal(query, "C0=ALB&PL0=1.9&Y0=2002&C1=CHN&PL1=2&Y1=2002&format=json")
query <- build_query_string_cl(country = country,
povline = povline,
year = year,
ppp = ppp)
expect_equal(query, "C0=ALB&PL0=1.9&Y0=2002&PPP0=100&C1=CHN&PL1=2&Y1=2002&PPP1=50&format=json")
query <- build_query_string_cl(country = country,
povline = povline,
year = year,
ppp = ppp,
coverage_type = coverage_type)
expect_equal(query, "C0=ALB_3&PL0=1.9&Y0=2002&PPP0=100&C1=CHN_1&PL1=2&Y1=2002&PPP1=50&format=json")
})
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.