tests/testthat/test-repeat.R
In romainfrancois/operators: Additional Binary Operators
test_that( "repeat operators work", {
expect_equal( "--" %x=% 10, paste(rep("-", 20), collapse = "") )
expect_equal( "-+" %x=% 10, paste(rep("-+", 10), collapse = ""))
expect_equal( nchar("--" %x=|% 50), 50 )
expect_equal( nchar("|-<+>-|" %x=|% 50), 50)
expect_equal( "|-<+>-|" %x=|% 50, substring(paste(rep("|-<+>-|", 10), collapse = "" ), 0, 50) )
})
romainfrancois/operators documentation built on May 27, 2019, 1:48 p.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.
test_that( "repeat operators work", {
expect_equal( "--" %x=% 10, paste(rep("-", 20), collapse = "") )
expect_equal( "-+" %x=% 10, paste(rep("-+", 10), collapse = ""))
expect_equal( nchar("--" %x=|% 50), 50 )
expect_equal( nchar("|-<+>-|" %x=|% 50), 50)
expect_equal( "|-<+>-|" %x=|% 50, substring(paste(rep("|-<+>-|", 10), collapse = "" ), 0, 50) )
})
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.