test_that("giving columns names of their position works", {
expect_equal(names(give_col_numbers(iris[1:3])),
c("COL.1", "COL.2", "COL.3") )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.