tests/testthat/test-rights.R

iris_dataset <- iris
rights(iris_dataset) <- NULL

test_that("rights() works", {
  expect_equal(rights(iris_dataset), NA_character_)
  expect_equal(rights(iris_dataset) <- "CC-BY-SA", "CC-BY-SA")
  expect_message(rights(iris_dataset, FALSE) <- "CC0")
})

Try the dataset package in your browser

Any scripts or data that you put into this service are public.

dataset documentation built on March 31, 2023, 10:24 p.m.