tests/testthat/test-utils_functional.R

In wlandau/targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

tar_test("map_chr()", {
  expect_equal(unname(map_chr(letters, identity)), letters)
})

tar_test("map_dbl()", {
  x <- as.numeric(seq_len(4))
  expect_equal(map_dbl(x, identity), x)
})

tar_test("map_int()", {
  expect_equal(map_int(seq_len(4), identity), seq_len(4))
})

tar_test("map_lgl()", {
  expect_equal(map_lgl(c(TRUE, FALSE), identity), c(TRUE, FALSE))
})

tar_test("map_rows()", {
  x <- data_frame(x = seq_len(3), y = rep(1, 3), z = rep(2, 3))
  expect_equal(map_rows(x, ~sum(.x)), seq_len(3) + 3)
})

tar_test("fltr()", {
  expect_equal(fltr(seq_len(10), ~.x < 5), seq_len(4))
})