Nothing
test_that("various versions can be compared", {
expect_equal(renv_version_compare("3.5", "3.5.7"), -1L)
expect_equal(renv_version_compare("3.5.0", "3.5.7"), -1L)
expect_equal(renv_version_compare("3.5.7", "3.5.7"), +0L)
expect_equal(renv_version_compare("3.5.8", "3.5.7"), +1L)
expect_equal(renv_version_compare("3.10.1", "4"), -1L)
})
test_that("version matching works as expected", {
versions <- c("2.7.10", "3.5.1", "3.5.10", "3.6", "3.6.5")
expect_equal(renv_version_match(versions, "3.5.6"), "3.5.10")
expect_equal(renv_version_match(versions, "3.5.1"), "3.5.1")
expect_equal(renv_version_match(versions, "3"), "3.6.5")
expect_equal(renv_version_match(versions, "2"), "2.7.10")
})
test_that("renv_version_length works as expected", {
expect_equal(renv_version_length("1"), 1)
expect_equal(renv_version_length("1.2"), 2)
expect_equal(renv_version_length("1.2-3"), 3)
expect_equal(renv_version_length("1.2.3-4"), 4)
})
test_that("renv_version_parts works as expected", {
expect_equal(renv_version_parts("1.0", 1L), c(1L))
expect_equal(renv_version_parts("1.0", 2L), c(1L, 0L))
expect_equal(renv_version_parts("1.0", 3L), c(1L, 0L, 0L))
expect_equal(renv_version_parts("1.1-4", 3L), c(1L, 1L, 4L))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.