RJpaper/magrittr/tests/testthat/test-tee.r
In hojsgaard/doBy: Groupwise Statistics, LSmeans, Linear Estimates, Utilities
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))
})
hojsgaard/doBy documentation built on May 4, 2024, 5:20 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.