# Make a dataframe to demonstrate
df <- data.frame("first" = 1:3, "middle" = 4:6, "second" = 7:9)
# Invoke the function
supportR::safe_rename(data = df, bad_names = c("second", "middle"),
good_names = c("third", "second"))
Run the code above in your browser using DataLab