library(terra)
f <- system.file("extdata/cyl_tile.tif", package = "tidyterra")
spatrast <- rast(f) |> mutate(aa = 1, bb = 2, cc = 3)
names(spatrast)
spatrast |>
relocate(bb, .before = cyl_tile_3) |>
relocate(cyl_tile_1, .after = last_col())
Run the code above in your browser using DataLab