library(testthat)
library(rsample)
test_that('basic naming sequences', {
expect_equal(rsample:::names0(2), c("x1", "x2"))
expect_equal(rsample:::names0(2, "y"), c("y1", "y2"))
expect_equal(rsample:::names0(10),
c(paste0("x0", 1:9), "x10"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.