# NOT RUN {
test_df <- data.table(
a = 1:5,
b = 1:5,
c = c("a","a","a","b","b"),
d = c("a","a","a","b","b"))
test_df %>%
relocate.(c, .before = b)
test_df %>%
relocate.(a, b, .after = c)
test_df %>%
relocate.(where(is.numeric), .after = c)
# }
Run the code above in your browser using DataLab