context('dfExtent')
load(system.file('data/test_data.rda', package="bencmisc"))
#load(file='/Users/benc/projects/anno/data/test_data.rda')
test_that('dfExtent, simple example', {
expect_true(
class(dfExtent(dat=test_data))=='list'
)
})
test_that('geeExtentStr, simple example', {
expect_true(
class(geeExtentStr(dat=test_data))=='character'
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.