## create safeframe
x <- make_safeframe(cars,
mph = "speed",
distance = "dist"
)
head(x)
if (require(dplyr) && require(magrittr)) {
x %>%
select(has_tag(c("mph", "distance"))) %>%
head()
}
Run the code above in your browser using DataLab