tests/testthat/test-data_set_labels.R

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")
})
zawmtun/slingr documentation built on Dec. 23, 2021, 9:14 p.m.