tests/testthat/test-download.R

In JesJehle/GEE2R: Simplify the acquisition of remote sensing data

library(earthEngineGrabR)

context("Download functionalities")

#if (!identical(Sys.getenv("NOT_CRAN"), "false")) {
  
# try(earthEngineGrabR:::gd_auth(), silent = T)
# test <- googledrive::drive_find("CGIAR-SRTM90_V4_s-mean.geojson", verbose = F)
# environment_test <- try(nrow(test) > 0, silent = T)
# if (!environment_test) stop(paste("Testing is not possible. \n", "files on google drive: ", environment_test))
# 

test_file <- "CGIAR-SRTM90_V4_s-mean.geojson"
# test_file <- "test_SRTM.geojson"
temp_dir <- get_temp_path(F)

# }
# googledrive::drive_download("test_SRTM.geojson", path = file.path(test_dir, "test_SRTM.geojson"), overwrite = T)


test_that("Test that download_data downloads test file from google drive", {
  skip_test_if_not_possible()
  earthEngineGrabR:::activate_environments()

  # googledrive::drive_find(test_file, verbose = F)

  earthEngineGrabR:::download_data(test_file,
    clear = F,
    temp_path = temp_dir
  )

  test <- grep(test_file, list.files(temp_dir))
  expect_is(test, "integer")
  # unlink(test_dir, recursive = T)
})








#
#
#   list.files(test_dir)
#   unlink(test_dir, T)
#