Running 'testthat.R' [64s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(fireexposuR)
  > 
  > test_check("fireexposuR")
  Saving _problems/test-fire_exp_extract_vis-28.R
  Saving _problems/test-fire_exp_extract_vis-39.R
  Saving _problems/test-fire_exp_extract_vis-44.R
  Saving _problems/test-fire_exp_extract_vis-46.R
  Saving _problems/test-fire_exp_map_class-31.R
  Saving _problems/test-fire_exp_map_class-37.R
  Saving _problems/test-fire_exp_map_class-38.R
  [ FAIL 7 | WARN 5 | SKIP 0 | PASS 160 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-fire_exp_extract_vis.R:27:3'): fire_exp_extract_vis() returns objects with correct class ──
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-fire_exp_extract_vis.R:27:3
    2. │ └─testthat::quasi_label(enquo(object))
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::suppressWarnings(fire_exp_extract_vis(ext_pts, map = TRUE))
    5. │ └─base::withCallingHandlers(...)
    6. ├─fireexposuR::fire_exp_extract_vis(ext_pts, map = TRUE)
    7. │ ├─... %>% terra::crop(e)
    8. │ └─maptiles::get_tiles(e, "Esri.WorldImagery", zoom = zoom_level)
    9. │   └─maptiles:::compose_tiles(tile_grid, images)
   10. │     ├─base::unique(tools::file_ext(images))
   11. │     └─tools::file_ext(images)
   12. │       ├─base::ifelse(...)
   13. │       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   14. │       │ └─base::is.factor(x)
   15. │       └─base::basename(x)
   16. ├─terra::crop(., e)
   17. └─base::.handleSimpleError(...)
   18.   └─base (local) h(simpleError(msg, call))
  ── Failure ('test-fire_exp_extract_vis.R:39:3'): fire_exp_extract_vis() runs when input conditions are met ──
  Expected `suppressWarnings(fire_exp_extract_vis(ext_pts, map = TRUE))` not to throw any errors.
  Actually got a <simpleError> with message:
    error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  ── Failure ('test-fire_exp_extract_vis.R:42:3'): fire_exp_extract_vis() runs when input conditions are met ──
  Expected `suppressWarnings(...)` not to throw any errors.
  Actually got a <simpleError> with message:
    error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  ── Failure ('test-fire_exp_extract_vis.R:46:3'): fire_exp_extract_vis() runs when input conditions are met ──
  Expected `fire_exp_extract_vis(ext_pols, method = "mean", map = TRUE)` not to throw any errors.
  Actually got a <simpleError> with message:
    error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  ── Error ('test-fire_exp_map_class.R:31:3'): fire_exp_map_class() returns object with correct class ──
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-fire_exp_map_class.R:31:3
    2. │ └─testthat::quasi_label(enquo(object))
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::suppressWarnings(fire_exp_map_class(exp, aoi = v))
    5. │ └─base::withCallingHandlers(...)
    6. ├─fireexposuR::fire_exp_map_class(exp, aoi = v)
    7. │ ├─... %>% terra::crop(e)
    8. │ └─maptiles::get_tiles(e, "Esri.WorldImagery", zoom = zoom_level)
    9. │   └─maptiles:::compose_tiles(tile_grid, images)
   10. │     ├─base::unique(tools::file_ext(images))
   11. │     └─tools::file_ext(images)
   12. │       ├─base::ifelse(...)
   13. │       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   14. │       │ └─base::is.factor(x)
   15. │       └─base::basename(x)
   16. ├─terra::crop(., e)
   17. └─base::.handleSimpleError(...)
   18.   └─base (local) h(simpleError(msg, call))
  ── Failure ('test-fire_exp_map_class.R:37:3'): fire_exp_map_class() runs when input conditions are met ──
  Expected `suppressWarnings(fire_exp_map_class(exp, v, "lan"))` not to throw any errors.
  Actually got a <simpleError> with message:
    error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  ── Failure ('test-fire_exp_map_class.R:38:3'): fire_exp_map_class() runs when input conditions are met ──
  Expected `fire_exp_map_class(exp, v, "cus", class_breaks = c(0.2, 1))` not to throw any errors.
  Actually got a <simpleError> with message:
    error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
  
  [ FAIL 7 | WARN 5 | SKIP 0 | PASS 160 ]
  Error:
  ! Test failures.
  Execution halted