working /test/

Author: csaybar

R/ee_as_sf.R

@@ -342,6 +342,7 @@ ee_fc_to_sf_getInfo_batch <- function(x_fc, dsn, maxFeatures, overwrite, quiet)
     suppressWarnings(
       sf::st_write(local_sf, dsn, delete_dsn = overwrite, quiet = TRUE)
     )
+    local_sf
   } else {
     crs_sf <- x_fc %>%
       ee$FeatureCollection$geometry() %>%

tests/testthat/test-download.R

@@ -74,7 +74,7 @@ test_that("GEOTIFF_DRIVE", {
     metadata = TRUE,
     dsn = tempfile()
   )
-  expect_is(img, "character")
+  expect_is(img, "list")
 })
 
 # # 2. CTFRECORD_IMAGE - DRIVE
@@ -341,7 +341,7 @@ test_that("KMZ_VECTOR_GCS",{
   vector <- ee_gcs_to_local(task = task_vector,
                             public = TRUE,
                             metadata = TRUE)
-  expect_is(vector, "character")
+  expect_is(vector, "list")
 })
 
 # # 18. GEOJSON_VECTOR - GCS
@@ -358,7 +358,7 @@ test_that("GEOJSON_VECTOR_GCS",{
   vector <- ee_gcs_to_local(task = task_vector,
                             public = TRUE,
                             metadata = TRUE)
-  expect_is(vector, "character")
+  expect_is(vector, "list")
 })
 # # 19. CTFRECORD_VECTOR - GCS
 # test_that("CTFRECORD_VECTOR_GCS",{

tests/testthat/test-ee_extract.R

@@ -7,7 +7,7 @@ filename <- system.file("external/lux.shp", package="raster")
 terraclimate_raw <- ee$ImageCollection("IDAHO_EPSCOR/TERRACLIMATE")
 terraclimate <- ee$ImageCollection("IDAHO_EPSCOR/TERRACLIMATE")$
   filterDate("2000-01-01", "2001-01-01")$
-  map(function(x) x$select("pr")$reproject("EPSG:4326"))
+  map(function(x) x$select("pr"))
 nc <- st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE) %>%
   st_transform(4326)
 
@@ -16,15 +16,15 @@ test_that("ee_extract ee$ImageCollection",{
                            y = nc,
                            fun = ee$Reducer$max(),
                            sf = TRUE)
-  expect_equal(mean(ee_nc_rain$X200012), 50.47)
+  expect_equal(mean(ee_nc_rain$pr), 124.87)
 })
 
 test_that("ee_extract ee$Image",{
   ee_nc_rain <- ee_extract(x = terraclimate$toBands(),
                            y = sf_as_ee(nc),
                            fun = ee$Reducer$max(),
                            sf = TRUE)
-  expect_equal(mean(ee_nc_rain$X200012_pr), 50.47)
+  expect_equal(mean(ee_nc_rain$pr), 124.87)
 })
 
 test_that("ee_extract - error ",{

tests/testthat/test-ee_image.R

@@ -114,16 +114,6 @@ test_that("ee_as_stars - simple ", {
 #   expect_type(ee_image_03,'character')
 # })
 
-test_that("ee_as_raster", {
-  img_01 <- ee_as_raster(
-    image = image_srtm,
-    region = geometry,
-    scale = 10,
-    via = "getInfo"
-  )
-  expect_s4_class(img_01, "RasterStack")
-})
-
 # world image thumbnail -----------------------------------------------
 region <- ee$Geometry$Rectangle(
   coords = c(-180,-60,180,60),
@@ -158,7 +148,6 @@ test_that("ee_image_local error 1", {
   }
 )
 
-
 test_that("ee_image_local error 2", {
   expect_error(
     rgee:::ee_image_local(

tests/testthat/test-imagecollection.R

@@ -21,8 +21,8 @@ test_that("ee_imagecollection_to_local - simple dsn", {
     dsn = tmp,
     quiet = TRUE
   )
-  raster(ic_getinfo_files[1])
-  expect_type(ic_getinfo_files, "character")
+  raster(ic_getinfo_files[[1]]$dsn)
+  expect_type(ic_getinfo_files, "list")
   }
 )
 
@@ -34,7 +34,7 @@ test_that("ee_imagecollection_to_local - simple dsn", {
     dsn = file.path(tmp, "drive_"),
     quiet = FALSE
   )
-  expect_type(ic_getinfo_files, "character")
+  expect_type(ic_getinfo_files, "list")
  }
 )
 
@@ -44,13 +44,14 @@ test_that("ee_imagecollection_to_local - simple dsn", {
    ic = ic,
    scale = 200,
    dsn = c("lesly_01.tif", "lesly_02.tif"),
-   region = geometry
+   region = geometry,
+   add_metadata = FALSE
  )
  ic_getinfo_files <- ee_imagecollection_to_local(
    ic = ic,
    scale = 200,
    region = geometry
  )
- expect_type(ic_getinfo_files, "character")
+ expect_type(ic_getinfo_files, "list")
  }
 )