# NOT RUN {
# Supply a renaming function:
select_all(mtcars, toupper)
select_all(mtcars, "toupper")
select_all(mtcars, funs(toupper(.)))
# Selection drops unselected variables:
is_whole <- function(x) all(floor(x) == x)
select_if(mtcars, is_whole, toupper)
# But renaming retains them:
rename_if(mtcars, is_whole, toupper)
# The renaming function is optional for selection:
select_if(mtcars, is_whole)
# }
Run the code above in your browser using DataLab