Re-project to appropriate UTM zone

toUTM(sf_object)

Arguments

sf_object

an sf object

Value

A transformed sf object

Examples

if (FALSE) {
data(gull)
gull_ <- gull$sp$NHDWaterbody
st_crs(gull_)
gull_ <- st_transform(gull_, 4326)
st_crs(gull_)
st_crs(toUTM(gull_[1, ]))
}