test_that("Adding labels to columns in a dataframe works", {
dat <- data.frame(a = 1:3)
dat <- data_set_labels(dat, "a", "Example")
expect_equal(attributes(dat$a)$label, "Example")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.