x <- sf::read_sf(system.file("extdata/new_hope.gpkg", package = "hydroloom"))
one <- dplyr::select(x)
two <- sf::st_transform(one, 5070)
attr(one, "sf_column") <- "geotest"
names(one)[names(one) == "geom"] <- "geotest"
st_compatibalize(one, two)
Run the code above in your browser using DataLab