fireexposuR

*

examples

Running examples in ‘fireexposuR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: fire_exp_extract_vis
> ### Title: Visualize exposure to values in a summary table or map
> ###   (deprecated)
> ### Aliases: fire_exp_extract_vis
> 
> ### ** Examples
> 
> # read example hazard data
> hazard_file_path <- "extdata/hazard.tif"
> hazard <- terra::rast(system.file(hazard_file_path, package = "fireexposuR"))
> 
> # read example area of interest
> polygon_path <- system.file("extdata", "polygon.shp", package ="fireexposuR")
> aoi <- terra::vect(polygon_path)
> 
> # generate random points within the aoi polygon
> points <- terra::spatSample(aoi, 100)
> 
> # compute exposure
> exposure <- fire_exp(hazard)
> 
> values_exp <- fire_exp_extract(exposure, points)
> 
> # summarize example points in a table
> fire_exp_extract_vis(values_exp, classify = "local")
Warning in fire_exp_extract_vis(values_exp, classify = "local") :
  'fire_exp_extract_vis' is deprecated.
Use 'fire_exp_extract_summary' instead.
See help("Deprecated")
  class_range  n prop method
1    0 - 0.15  7 0.07     NA
2  0.15 - 0.3 19 0.19     NA
3  0.3 - 0.45 61 0.61     NA
4    0.45 - 1 13 0.13     NA
> 
> # visualize example points in standardized map
> fire_exp_extract_vis(values_exp, map = TRUE)
Warning in fire_exp_extract_vis(values_exp, map = TRUE) :
  'fire_exp_extract_vis' is deprecated.
Use 'fire_exp_extract_map' instead.
See help("Deprecated")
Error in h(simpleError(msg, call)) : 
  error in evaluating the argument 'x' in selecting a method for function 'crop': a character vector argument expected
Calls: fire_exp_extract_vis ... grepl -> is.factor -> basename -> .handleSimpleError -> h
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
                    user system elapsed
fire_exp           6.006  0.452   8.222
fire_exp_dir_multi 4.032  0.305   5.342

tests

  Running ‘testthat.R’ [48s/54s]
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

*

*

*

*

*

*

*

*

*

*

*

*