tests/testthat/test-as.character.R

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"))
})
jmsigner/rhr documentation built on June 26, 2020, 8:59 a.m.