Nothing
context("spTransform")
test_that("spTransfrom", {
data(leroy)
data2 <- spTransform(
x = d <- spTransform(leroy, center = T),
CRSobj = (proj4string(leroy))
)
leroy@coords.nrs <- numeric(0) # sptransfrom does this for some reason in line 123 of project.R
expect_error(spTransform(d, center = T)) # somethign not long lat cant go to aeqd
skip("fails on old sp version")
expect_equal(leroy, data2)
})
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.