## create safeframe
x <- make_safeframe(cars,
mph = "speed",
distance = "dist"
)
## print object - using only the first few entries
head(x)
# version with a tibble
if (require(tibble) && require(magrittr)) {
cars %>%
tibble() %>%
make_safeframe(
mph = "speed",
distance = "dist"
)
}
Run the code above in your browser using DataLab