tests/testthat/test-linear_map.R

In BastiHz/BastiHzR: A Personal R Package with Miscellaneous Stuff

test_that("linear_map output is correct", {
    foo <- 1:3
    expect_equal(linear_map(foo), c(0.0, 0.5, 1.0))
    expect_equal(linear_map(foo, 1, 10), c(0, 1/9, 2/9))
    expect_equal(linear_map(foo, 0, 10), c(0.1, 0.2, 0.3))
    expect_equal(linear_map(foo, 0, 10, 0, 100), c(10, 20, 30))
    expect_equal(linear_map(foo, 1, 10, 10, 100), c(10, 20, 30))
    expect_equal(linear_map(seq(0, 360, 90), out_end = 2 * pi),
                 seq(0, 2 * pi, pi / 2))
    expect_equal(linear_map(-1, 0, 1, 20, 30), 10)
    expect_equal(linear_map(c(1, NA, 3)), c(0, NA, 1))
    expect_equal(linear_map(1:3, out_start = 30, out_end = 10), c(30, 20, 10))
})

test_that("linear_map throws expected errors", {
    expect_error(linear_map(3))
    expect_error(linear_map(1:3, 1, 1))
    expect_error(linear_map(1:3, out_start = 1, out_end = 1))
})