Running ‘testthat.R’ [81s/125s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(biosurvey)
  > 
  > test_check("biosurvey")
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |==================                                                    |  25%
    |                                                                            
    |===================================                                   |  50%
    |                                                                            
    |====================================================                  |  75%
    |                                                                            
    |======================================================================| 100%
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |                                                                      |   0%══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-grid_from_region.R:11:3): SPDF grid was produced successfully ──
  `gfp_crs` not equal to "+proj=longlat +datum=WGS84 +no_defs".
  1/1 mismatches
  x[1]: "+init=epsg:4326 +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84
  x[1]: =0,0,0"
  y[1]: "+proj=longlat +datum=WGS84 +no_defs"
  ── Error (test-helpers_spp_tables.R:31:3): Correct spdf_2data ──────────────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::spdf_2data(spdf_object = species_data, spdf_grid = grid_reg) test-helpers_spp_tables.R:31:2
   2.   ├─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
   3.   └─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
   4.     └─rgeos:::.local(x, y, returnList, fn, ...)
   5.       └─rgeos::overGeomGeom(x, y, returnList = TRUE, minDimension = minDimension)
   6.         └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-plotting_errors.R:50:3): Errors plot_SAC ────────────────────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::subset_PAM(b_pam, m_selection, selection_type = "all") test-plotting_errors.R:50:2
   2.   └─biosurvey::selected_sites_PAM(rpsel, base_PAM)
   3.     └─base::lapply(...)
   4.       └─biosurvey:::FUN(X[[i]], ...)
   5.         ├─base::data.frame(sp::over(xp, base_PAM$PAM[, "ID"]), x)
   6.         ├─sp::over(xp, base_PAM$PAM[, "ID"])
   7.         └─sp::over(xp, base_PAM$PAM[, "ID"])
   8.           └─sp:::.local(x, y, returnList, fn, ...)
   9.             └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-plotting_errors.R:62:3): Errors compare_SAC ─────────────────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::subset_PAM(b_pam, m_selection, selection_type = "all") test-plotting_errors.R:62:2
   2.   └─biosurvey::selected_sites_PAM(rpsel, base_PAM)
   3.     └─base::lapply(...)
   4.       └─biosurvey:::FUN(X[[i]], ...)
   5.         ├─base::data.frame(sp::over(xp, base_PAM$PAM[, "ID"]), x)
   6.         ├─sp::over(xp, base_PAM$PAM[, "ID"])
   7.         └─sp::over(xp, base_PAM$PAM[, "ID"])
   8.           └─sp:::.local(x, y, returnList, fn, ...)
   9.             └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-prepare_base_PAM.R:4:3): Correct creation of base_PAM ───────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::prepare_base_PAM(...) test-prepare_base_PAM.R:4:2
   2.   └─biosurvey::spdf_2data(...)
   3.     ├─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
   4.     └─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
   5.       └─rgeos:::.local(x, y, returnList, fn, ...)
   6.         └─rgeos::overGeomGeom(x, y, returnList = TRUE, minDimension = minDimension)
   7.           └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-prepare_base_PAM.R:26:3): Errors and messages base_PAM ──────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
       █
    1. ├─testthat::expect_message(...) test-prepare_base_PAM.R:26:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─biosurvey::prepare_base_PAM(...)
    7.   └─biosurvey::spdf_2data(...)
    8.     ├─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
    9.     └─sp::over(spdf_grid, spdf_object[spnames == spnames[x], ])
   10.       └─rgeos:::.local(x, y, returnList, fn, ...)
   11.         └─rgeos::overGeomGeom(x, y, returnList = TRUE, minDimension = minDimension)
   12.           └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-selected_sites_DI.R:8:3): Correct creation of dissimilarity indices ──
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::subset_PAM(b_pam, m_selection, selection_type = "all") test-selected_sites_DI.R:8:2
   2.   └─biosurvey::selected_sites_PAM(rpsel, base_PAM)
   3.     └─base::lapply(...)
   4.       └─biosurvey:::FUN(X[[i]], ...)
   5.         ├─base::data.frame(sp::over(xp, base_PAM$PAM[, "ID"]), x)
   6.         ├─sp::over(xp, base_PAM$PAM[, "ID"])
   7.         └─sp::over(xp, base_PAM$PAM[, "ID"])
   8.           └─sp:::.local(x, y, returnList, fn, ...)
   9.             └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-selected_sites_SAC.R:4:3): Correct creation of SACs for sites ───
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::subset_PAM(b_pam, m_selection, selection_type = "all") test-selected_sites_SAC.R:4:2
   2.   └─biosurvey::selected_sites_PAM(rpsel, base_PAM)
   3.     └─base::lapply(...)
   4.       └─biosurvey:::FUN(X[[i]], ...)
   5.         ├─base::data.frame(sp::over(xp, base_PAM$PAM[, "ID"]), x)
   6.         ├─sp::over(xp, base_PAM$PAM[, "ID"])
   7.         └─sp::over(xp, base_PAM$PAM[, "ID"])
   8.           └─sp:::.local(x, y, returnList, fn, ...)
   9.             └─base::stopifnot(identicalCRS(x, y))
  ── Error (test-subset_PAM.R:4:3): Correct creation of PAM_subset ───────────────
  Error: identicalCRS(x, y) is not TRUE
  Backtrace:
      █
   1. └─biosurvey::subset_PAM(b_pam, m_selection, selection_type = "G") test-subset_PAM.R:4:2
   2.   └─biosurvey::selected_sites_PAM(gpsel, base_PAM)
   3.     └─base::lapply(...)
   4.       └─biosurvey:::FUN(X[[i]], ...)
   5.         ├─base::data.frame(sp::over(xp, base_PAM$PAM[, "ID"]), x)
   6.         ├─sp::over(xp, base_PAM$PAM[, "ID"])
   7.         └─sp::over(xp, base_PAM$PAM[, "ID"])
   8.           └─sp:::.local(x, y, returnList, fn, ...)
   9.             └─base::stopifnot(identicalCRS(x, y))
  
  [ FAIL 9 | WARN 15 | SKIP 0 | PASS 215 ]
  Error: Test failures
  Execution halted