tests/testthat/test-getMODIS.R

In 16EAGLE/getSpatialData: Get different kinds of freely available spatial datasets

if(isTRUE(test.run$authentify)){

  context("getMODIS_*")
  # test_that("getMODIS_*", {
  #   expect_is(names <- getMODIS_names(username = test.cred$ee.user, password = test.cred$ee.pass), "character")
  #   
  #   ## insert: loop through all names
  #   expect_is(records <- getMODIS_query(time_range = vars.global$time_range, name = grep("MOD13Q1", names, value = T), aoi = vars.global$aoi, username = test.cred$ee.user, password = test.cred$ee.pass, verbose = F), "data.frame")
  #   expect_gt(nrow(records), 0)
  #   expect_null(x <- getMODIS_preview(record = records[1,], on_map = F, show_aoi = F, verbose = F))
  #   expect_is(x <- recordPlot(), "recordedplot")
  #   
  #   if(isTRUE(test.run$downloads)){
  #     expect_is(down.file <- getMODIS_data(records = records[1,], dir_out = vars.global$dir.arc, force = T, verbose = F), "character")
  #     expect_gt(nchar(down.file), 0)
  #   }
  # })
}