RJpaper/magrittr/tests/testthat/test-fseq.r

context("functional sequences")


test_that("fseq functions work", {
  a <- . %>% cos %>% sin %>% tan
  
  b <- function(x) tan(sin(cos(x)))

  expect_that(a(1:10), is_identical_to(b(1:10)))
})
hojsgaard/doBy documentation built on May 4, 2024, 5:20 a.m.