Running 'tinytest.R' [9s]
Running the tests in 'tests/tinytest.R' failed.
Complete output:
  > 
  > if ( requireNamespace("tinytest", quietly=TRUE) ){
  +   tinytest::test_package("MODIS")
  + }
  Loading required package: mapdata
  Loading required package: maps
  Loading required package: raster
  Loading required package: sp
  
  Running test-EarthdataLogin.R.........    0 tests    
  Running test-EarthdataLogin.R.........    0 tests    
  Running test-EarthdataLogin.R.........    0 tests    
  Running test-EarthdataLogin.R.........    1 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    1 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    1 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    2 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    3 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    3 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    3 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    4 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    4 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    4 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    5 tests [0;32mOK[0m 
  Running test-EarthdataLogin.R.........    5 tests [0;32mOK[0m [0;36m93ms[0m
  
  Running test-extractDate.R............    0 tests    
  Running test-extractDate.R............    1 tests [0;32mOK[0m 
  Running test-extractDate.R............    2 tests [0;32mOK[0m 
  Running test-extractDate.R............    2 tests [0;32mOK[0m 
  Running test-extractDate.R............    3 tests [0;32mOK[0m 
  Running test-extractDate.R............    3 tests [0;32mOK[0m 
  Running test-extractDate.R............    4 tests [0;32mOK[0m [0;36m57ms[0m
  
  Running test-genString.R..............    0 tests    
  Running test-genString.R..............    0 tests    
  Running test-genString.R..............    1 tests [0;32mOK[0m 
  Running test-genString.R..............    2 tests [0;32mOK[0m 
  Running test-genString.R..............    2 tests [0;32mOK[0m 
  Running test-genString.R..............    3 tests [0;32mOK[0m 
  Running test-genString.R..............    3 tests [0;32mOK[0m [0;34m0.1s[0m
  
  Running test-getCollection.R..........    1 tests [0;32mOK[0m [0;34m1.6s[0m
  
  Running test-getProduct.R.............    1 tests [0;32mOK[0m [0;36m15ms[0m
  
  Running test-getSds.R.................    0 tests    
  Running test-getSds.R.................    0 tests    
  Running test-getSds.R.................    3 tests [0;32mOK[0m 
  Running test-getSds.R.................    3 tests [0;32mOK[0m 
  Running test-getSds.R.................    3 tests [0;32mOK[0m 
  Running test-getSds.R.................    9 tests [0;32mOK[0m [0;36m46ms[0m
  
  Running test-getTile.R................    0 tests    
  Running test-getTile.R................    0 tests    Error: Problem with `filter()` input `..1`.
  i Input `..1` is `lengths(.predicate(x, y, ...)) > 0`.
  x Evaluation error: Found 4 features with invalid spherical geometry.
  [13] Loop 0 is not valid: Edge 1 crosses edge 6
  [18] Loop 0 is not valid: Edge 0 crosses edge 5
  [446] Loop 0 is not valid: Edge 1 crosses edge 4
  [451] Loop 0 is not valid: Edge 2 crosses edge 5.
  Backtrace:
       x
    1. +-tinytest::test_package("MODIS")
    2. | \-tinytest::run_test_dir(...)
    3. |   \-base::lapply(...)
    4. |     \-tinytest:::FUN(X[[i]], ...)
    5. |       \-base::eval(expr, envir = e)
    6. |         \-base::eval(expr, envir = e)
    7. |           +-tinytest::expect_null(getTile(pts[1, ])@target$extent, info = "target extent defaults to full tile for single point feature")
    8. |           | \-tinytest:::fun(...)
    9. |           +-MODIS::getTile(pts[1, ])
   10. |           \-MODIS::getTile(pts[1, ])
   11. |             +-base::suppressMessages(sf::st_filter(sr, x))
   12. |             | \-base::withCallingHandlers(...)
   13. |             +-sf::st_filter(sr, x)
   14. |             \-sf:::st_filter.sf(sr, x)
   15. |               +-dplyr::filter(x, lengths(.predicate(x, y, ...)) > 0)
   16. |               +-sf:::filter.sf(x, lengths(.predicate(x, y, ...)) > 0)
   17. |               | \-sf:::.re_sf(...)
   18. |               |   \-base::stopifnot(...)
   19. |               +-base::NextMethod()
   20. |               \-dplyr:::filter.data.frame(...)
   21. |                 \-dplyr:::filter_rows(.data, ..., caller_env = caller_env())
   22. |                   +-base::withCallingHandlers(...)
   23. |                   \-mask$eval_all_filter(dots, env_filter)
   24. +-base::lengths(.predicate(x, y, ...))
   25. +-sf:::.predicate(x, y, ...)
   26. +-sf:::st_intersects.sf(x, y, ...)
   27. | \-sf:::st_geos_binop(...)
   28. |   \-s2:::fn(x, y, s2::s2_options(model = s2_model, ...))
   29. |     +-s2:::cpp_s2_intersects_matrix(...)
   30. |     +-s2::as_s2_geography(x)
   31. |     \-sf:::as_s2_geography.sf(x)
   32. |       \-sf:::st_as_s2.sf(x, ..., oriented = oriented)
   33. |         +-sf::st_as_s2(st_geometry(x), ...)
   34. |         \-sf:::st_as_s2.sfc(st_geometry(x), ...)
   35. |           +-s2::as_s2_geography(st_as_binary(x), ..., oriented = oriented)
   36. |           \-s2:::as_s2_geography.WKB(st_as_binary(x), ..., oriented = oriented)
   37. |             +-s2:::new_s2_xptr(...)
   38. |             \-s2:::s2_geography_from_wkb(x, oriented = oriented, check = check)
   39. +-base::stop(...)
   40. \-(function (e) ...
  Execution halted