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