Nothing
context("inspect data")
test_that("The dimensions are correct and the dimensions are numeric columns", {
skip("long running test")
skip_on_cran()
test_dimensions <- get_dimensions(base_url, api_key)
expect_that(as.numeric(test_dimensions$NROW[1])*as.numeric(test_dimensions$NCOL[1]),
equals(as.numeric(test_dimensions$DIM[1])))
expect_true(is.numeric(test_dimensions$NROW[1]))
expect_true(is.numeric(test_dimensions$NCOL[1]))
expect_true(is.numeric(test_dimensions$DIM[1]))
})
test_that("We geta warning when there is no url", {
expect_warning(get_dimensions(api_key = api_key),
"Please add a valid base URL")
})
test_that("We geta warning when there is no api_key", {
expect_warning(get_dimensions(base_url = base_url),
"Please add a valid API key for the base URL you are trying to access")
})
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.