library(rhr)
library(sp)
context("as.character: test cases")
set.seed(1234)
r <- raster::raster()
test_that("function works", {
expect_that(as.character(r), is_a("character"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.