data(locations_example)
p1 <- data.frame(lon = -90.8, lat = 48.6) |>
sf::st_as_sf(coords = c("lon", "lat"), crs = "WGS84")
profile_crds <- profile_coords(locations_example, profile = p1, azimuth = 135)
head(profile_crds)
# Plot the transformed coordinates
plot(profile_crds)
Run the code above in your browser using DataLab