Nothing
context("hpp")
test_that("Rcpp api handles incorrect structures",{
## Vector input
v <- 1:3
expect_error(
decido:::earcut_sfg( v )
, "decido - expecting a list of matrices"
)
## matrix input
m <- matrix(1:4, ncol = 2)
expect_error(
decido:::earcut_sfg( m )
, "decido - expecting a list of"
)
## not a matrix
v <- 1:3
l <- list(v)
expect_error(
decido:::earcut_sfg( l )
, "decido - a list must only contain matrices"
)
## incorrect matrix dimensions
m <- matrix(1:3, ncol = 1)
l <- list(m)
expect_error(
decido:::earcut_sfg( l )
, "decido - each point in the polygon must have exactly two coordinates"
)
## too many lists
m <- matrix(1:4, ncol = 2)
l <- list( list( m ) )
expect_error(
decido:::earcut_sfg( l )
, "decido - a list must only contain matrices"
)
})
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.