target_points <- sf::st_sfc(sf::st_point(c(538310, 6544255)),
sf::st_point(c(538300, 6544250)))
target_points <- sf::st_as_sf(target_points, crs = 32632)
# Shoreline date, reducing resoltuion on elevation and calendar scales for
# speed.
target_dates <- shoreline_date(target_points,
elevation = c(65, 70),
elev_reso = 10,
cal_reso = 500)
sum_shoredates(target_dates)
Run the code above in your browser using DataLab