Nothing
message("test-split_nodata_values.R")
test_that("split_nodata_values works as expected", {
expect_equal(split_nodata_values(c("250:255"))[[1]], 250:255)
expect_equal(split_nodata_values(c("250,255"))[[1]], c(250,255))
})
test_that("create_nodata_rcl works as expected", {
expect_equal(
as.data.frame(create_nodata_rcl(c("250,254:255"),
c("255"))[[1]]),
data.frame(from = c(250,254), to = c(250,255), becomes = c(255,255)))
expect_equal(split_nodata_values(c("250,255"))[[1]], c(250,255))
})
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.