# NOT RUN {
test_df <- data.table(
x = 1,
y = 2,
double_x = 2,
double_y = 4)
test_df %>%
rename_with.(toupper)
test_df %>%
rename_with.(~ toupper(.x))
test_df %>%
rename_with.(~ toupper(.x), .cols = c(x, double_x))
# }
Run the code above in your browser using DataLab