inst/tinytest/test_strip_off_attributes.R

if (interactive()) {
  pkgload::load_all()
  library("tinytest")
}


x <- 1:3
y <- stats::setNames(x, letters[1:3])
attr(y, "myattr") <- "qwer"
comment(y) <- "qwer"
expect_identical(x, strip_off_attributes(y))

Try the fritools package in your browser

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

fritools documentation built on June 8, 2025, 11:59 a.m.