Try to support older R versions

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2018-04-19 12:50:23 +02:00
1 parent d79132b29f
commit e7396b8f39
7 files changed
+23 -23

No files matched your search

+2 -2
View File
@@ -19,8 +19,8 @@ test_that("size format works", {
})
test_that("functions missing in older R versions work", {
expect_equal(strrep("A", 5), "AAAAA")
expect_equal(strrep(c("A", "B"), c(5, 2)), c("AAAAA", "BB"))
expect_equal(strrep2("A", 5), "AAAAA")
expect_equal(strrep2(c("A", "B"), c(5, 2)), c("AAAAA", "BB"))
expect_equal(trimws(" test "), "test")
expect_equal(trimws(" test ", "l"), "test ")
expect_equal(trimws(" test ", "r"), " test")