source(system.file("extdata", "sample_flines.R", package = "nhdplusTools"))
(one <- dplyr::select(sample_flines))
(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