Try to support older R versions

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2018-04-19 14:10:57 +02:00
1 parent e7396b8f39
commit 82fec5cc51
10 files changed
+50 -73

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(strrep2("A", 5), "AAAAA")
expect_equal(strrep2(c("A", "B"), c(5, 2)), c("AAAAA", "BB"))
expect_equal(strrep("A", 5), "AAAAA")
expect_equal(strrep(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")