tests/testthat/test-indexing.R

In FastUtils: Fast, Readable Utility Functions

test_that("Get the Last Elements of a Vector or List", {
    expect_equal(getlast(1:5), 5)
    expect_equal(getlast(list(a = 1, b = 2, c = 3), 2), 2)
})

test_that("Get the First Elements of a Vector or List", {
    expect_equal(getfirst(1:5), 1)
    expect_equal(getfirst(list(a = 1, b = 2, c = 3), 2), 2)
})