Nothing
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 fritools2 package in your browser
Any scripts or data that you put into this service are public.
