context("test the connection to WWHYPDA")
test_that("number of dimensions in WWHYPDA is 20523 and 39", {
df <- geostatDB::getData()
my_dim <- dim(df)
expect_equal(my_dim[1], 20523)
expect_equal(my_dim[2], 39)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.