test_that("set_names", {
x = 1:3
expect_names(names(x), "unnamed")
x = set_names(x, letters[1:3])
expect_set_equal(names(x), letters[1:3])
x = set_names(x, toupper)
expect_set_equal(names(x), LETTERS[1:3])
x = letters[1:3]
x = set_names(x)
expect_equal(unname(x), names(x))
})
test_that("set_col_names", {
x = iris[, 1:3]
x = set_col_names(x, letters[1:3])
expect_set_equal(names(x), letters[1:3])
x = set_col_names(x, toupper)
expect_set_equal(names(x), LETTERS[1:3])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.