packrat/lib/x86_64-pc-linux-gnu/3.2.3/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)))
})
etsakl/DasyMapR documentation built on May 16, 2019, 9:07 a.m.