tests/testthat/test-upload.R

In ryali93/rgee: R bindings for calling the Earth Engine API

context("rgee: ee_upload test")

ee_Initialize(
  email = "data.colec.fbf@gmail.com",
  drive = TRUE,
  gcs = TRUE
)

test_that("local_to_gcs - character",{
  # Define an image.
  tif <- system.file("tif/L7_ETMs.tif", package = "stars")
  gcsuri <- local_to_gcs(x = tif, bucket = 'rgee_dev')
  gcsuri <- local_to_gcs(x = tif, bucket = 'rgee_dev',quiet = TRUE)
  expect_type(gcsuri,'character')
})

# ee_upload with bucket -----------------------------------------------------
test_that("gcs_to_ee_table ", {
  nc <- st_read(system.file("shape/nc.shp", package = "sf"))
  assetId <- sprintf("%s/%s",ee_get_assethome(),'sf_nc')
  zipfile <- ee_create_shp_zip(nc)
  gs_uri <- local_to_gcs(x = zipfile,
                            bucket = 'rgee_dev')
  gcs_to_ee_table(
    gs_uri = gs_uri,
    assetId = assetId
  )
  #ee_monitoring()
  ee_sf_01 <- ee$FeatureCollection(assetId)
  expect_s3_class(object = ee_sf_01,
                  class =  "ee.featurecollection.FeatureCollection")
})


test_that("gcs_to_ee_image ", {
  # Get the filename of a image
  tif <- system.file("tif/L7_ETMs.tif", package = "stars")
  x <- read_stars(tif)
  st_crs(x) <- 4326
  assetId <- sprintf("%s/%s",ee_get_assethome(),'stars_l7')

  # Method 1
  # 1. Move from local to gcs
  gs_uri <- local_to_gcs(x = tif, bucket = 'rgee_dev')

  # 2. Pass from gcs to asset
  result <- gcs_to_ee_image(
    x = x,
    overwrite = TRUE,
    gs_uri = gs_uri,
    assetId = assetId
  )
  expect_equal(result,"users/datacolecfbf/stars_l7")
})