Nothing
test_that("query_parameters() returns proper list of info", {
skip_if_offline()
vcr::use_cassette("query_parameters_comm&temporal_api", {
par_query <- query_parameters(community = "ag",
pars = "T2M",
temporal_api = "Daily")
expect_type(par_query, "list")
expect_length(par_query, 1)
expect_named(par_query, "T2M")
})
})
test_that("query_parameters() returns list of parameter information",
{
skip_if_offline()
par_query <- query_parameters(pars = "T2M")
expect_type(par_query, "list")
expect_length(par_query, 1)
expect_named(par_query, "T2M")
})
test_that("query_parameters() stops if par and community only supplied", {
skip_if_offline()
expect_error(query_parameters(pars = "T2M",
community = "AG"))
})
test_that("query_parameters() stops if par and community only supplied", {
skip_if_offline()
expect_error(query_parameters(pars = "T2M",
temporal_api = "daily"))
})
test_that("query_parameters() stops if metadata is not Boolean", {
skip_if_offline()
expect_error(
query_parameters(
pars = "T2M",
community = "ag",
temporal_api = "daily",
metadata = "orange"
)
)
})
test_that("query_parameters() stops if community is invalid", {
skip_if_offline()
expect_error(
query_parameters(
pars = "T2M",
community = "res",
temporal_api = "daily",
metadata = TRUE
)
)
})
test_that("query_parameters() stops if temporal_api is invalid", {
skip_if_offline()
expect_error(
query_parameters(
pars = "T2M",
community = "ag",
temporal_api = "ag",
metadata = TRUE
)
)
})
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.