tests/testthat/test-get_fire_danger_levels.R

context("get_fire_danger_levels")

test_that("get_fire_danger_levels works", {

  # Check whether the result is correct
  x <- get_fire_danger_levels(b)
  expect_equal(x, c(3, 9, 23, 49, 98))

})

Try the caliver package in your browser

Any scripts or data that you put into this service are public.

caliver documentation built on Feb. 19, 2021, 5:07 p.m.