Nothing
context("rgee: sf_as_ee test")
# -------------------------------------------------------------------------
ee_Initialize(gcs = TRUE, drive = TRUE)
filename <- system.file("external/lux.shp", package = "raster")
nc <- system.file("shape/nc.shp", package = "sf")
test_that("sf_as_ee.sf", {
p <- sf::read_sf(filename) %>%
sf::st_as_sf()
ee_p <- sf_as_ee(p)
expect_is(ee_p, "ee.featurecollection.FeatureCollection")
})
test_that("sf_as_ee.sfc", {
p <- sf::read_sf(filename) %>%
sf::st_as_sf() %>%
sf::st_geometry()
ee_p <- sf_as_ee(p)
expect_is(ee_p$geometry(), "ee.geometry.Geometry")
})
test_that("sf_as_ee.sfg", {
p <- sf::read_sf(filename) %>%
sf::st_geometry() %>%
"[["(1) %>%
sf_as_ee()
expect_is(p, "ee.geometry.Geometry")
})
test_that("sf_as_ee - getInfo_to_asset", {
remove_id <- sprintf("%s/sf_as_ee_test", ee_get_assethome())
p <- sf::read_sf(filename) %>%
sf::st_as_sf() %>%
sf::st_geometry() %>%
"[["(1) %>%
sf_as_ee(
overwrite = TRUE,
assetId = remove_id,
via = "getInfo_to_asset"
)
expect_is(p$geometry(), "ee.geometry.Geometry")
})
test_that("sf_as_ee - gcs_to_asset", {
remove_id <- sprintf("%s/sf_as_ee_test", ee_get_assethome())
p <- sf::read_sf(filename) %>%
sf::st_as_sf() %>%
sf::st_geometry() %>%
"[["(1) %>%
sf_as_ee(
assetId = remove_id,
overwrite = TRUE,
bucket = "rgeedev2",
via = "gcs_to_asset")
expect_is(p$geometry(), "ee.geometry.Geometry")
})
test_that("sf_as_ee - single", {
remove_id <- sprintf("%s/sf_as_ee_test", ee_get_assethome())
p_sf <- sf::read_sf(filename)[1,]
p_sfc <- sf::read_sf(filename)[1,]$geometry
p_sfg <- sf::read_sf(filename)[1,]$geometry[[1]]
expect_is(sf_as_ee(p_sf)$geometry(), "ee.geometry.Geometry")
expect_is(sf_as_ee(p_sfc), "ee.geometry.Geometry")
expect_is(sf_as_ee(p_sfg), "ee.geometry.Geometry")
})
test_that("ERROR 01", {
expect_error(
sf::read_sf(filename) %>%
sf::st_as_sf() %>%
sf::st_geometry() %>%
sf_as_ee(via = "cesar")
)
})
test_that("ERROR 02", {
ss_ff <- sf::st_read(filename)
sf::st_crs(ss_ff) <- NA
expect_error(
sf_as_ee(ss_ff, geodesic = TRUE)
)
})
test_that("ERROR 03", {
ss_ff <- "other_class"
expect_error(
sf_as_ee(ss_ff)
)
})
test_that("ERROR 04", {
ss_ff <- "other_class"
expect_error(
sf_as_ee(ss_ff)
)
})
test_that("is_POSIX and more errors", {
nc <- st_read(system.file("shape/nc.shp", package="sf"))
kml_file <- tempfile(fileext = ".kml")
write_sf(nc, kml_file)
expect_error(sf_as_ee(read_sf(kml_file)))
sf_area <- nc["AREA"]
colnames(sf_area) <- c("sf.area", "geometry")
expect_error(sf_as_ee(sf_area))
})
test_that("bucket error", {
st_read(system.file("shape/nc.shp", package = "sf")) %>%
sf_as_ee(via = 'gcs_to_asset', assetId = "test") %>%
expect_error()
st_read(system.file("shape/nc.shp", package = "sf")) %>%
ee_table_to_gcs() %>%
expect_error()
})
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.