packrat/lib/x86_64-pc-linux-gnu/3.2.3/magrittr/tests/testthat/test-tee.r

context("magrittr tee")

test_that("tee related functionality works.", {

  dim_message <- function(data.)
    message(sprintf("Data has dimension %d x %d", NROW(data.), NCOL(data.)))

  expect_that(iris %T>% dim_message, shows_message(dim_message(iris)))
  expect_that(iris %T>% dim_message, is_identical_to(iris))

})
etsakl/DasyMapR documentation built on May 16, 2019, 9:07 a.m.