Running ‘tinytest.R’ [5s/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;36m74ms[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;36m74ms[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.7s[0m
  
  Running test-getProduct.R.............    1 tests [0;32mOK[0m [0;36m19ms[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;36m59ms[0m
  
  Running test-getTile.R................    0 tests    
  Running test-getTile.R................    0 tests    Error: Problem with `filter()` input `..1`.
  ℹ Input `..1` is `lengths(.predicate(x, y, ...)) > 0`.
  ✖ 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:
       █
    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, ...)
   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