# NOT RUN {
test_df <- data.table(
a = 1:3,
b = 1:3,
c = c("a", "a", "b"),
d = c("a", "a", "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