tests/testthat/test-00_helper.R

In dhope/BASSr: Benefit Applied Strategic Sampling

test_that("clean_land_cover()", {

  # No match
  expect_error(clean <- clean_land_cover(psu_hex_dirty, pattern = "CLC0013_LC"),
               "did not match")
  # Helpful
  expect_error(clean <- clean_land_cover(psu_hex_dirty, pattern = "CLC"),
               "Consider using 'CLC0013_' instead")

  # Clean
  expect_message(clean <- clean_land_cover(psu_hex_dirty, pattern = "CLC0013_"),
                 "Renaming land cover columns")
  expect_s3_class(clean, "data.frame")
  expect_true("LC01" %in% names(clean))
  expect_equal(nrow(clean), nrow(psu_hex_dirty))

  # Append
  expect_message(clean <- clean_land_cover(psu_hex_dirty, pattern = "CLC0013_",
                                        append = "a")) %>%
    suppressMessages()
  expect_s3_class(clean, "data.frame")
  expect_true("LC01a" %in% names(clean))
  expect_equal(nrow(clean), nrow(psu_hex_dirty))
})

test_that("estimate_cost_study_area()", {

  hex <- dplyr::select(psu_costs, 1:INLAKE)

  expect_silent(costs <- estimate_cost_study_area(
    narus = 3, hex,
    pr, sr, wr,
    dist_base_sa = basecamps,
    dist_airport_sa = airportdist_km,
    dist2airport_base = cabin_dist_to_air,
    AirportType = AirportType,
    vars = cost_vars))

  expect_s3_class(costs, "data.frame")
  expect_named(costs,
               c(names(hex), "AT", "lCost", "primary_cost", "atv_cost",
                 "heli_cost_per_l", "cost_base", "cost_to_SA", "cost_within_SA",
                 "total_truck_cost", "total_atv_cost", "total_winter_cost",
                 "p_heli", "total_heli_cost", "narus", "RawCost"),
               ignore.order = TRUE)

  expect_snapshot_value(costs, style = "json2", tolerance = 0.0004)
})