target_point <- sf::st_sfc(sf::st_point(c(538310, 6544255)), crs = 32632)
# Reduce date resolution with cal_reso and elevation_reso for speed
target_date <- shoreline_date(sites = target_point,
elevation = 80,
elev_reso = 1,
cal_reso = 400)
# shoredate_hdr() is already called under the hood with shoreline_date(),
# the result of which is printed when calling the shoreline_date object
target_date
# However, shoredate_hdr() can be applied separately by pulling the
# necessary data from the date
(shoredate_hdr(target_date[[1]][[1]]$date$bce,
target_date[[1]][[1]]$date$probability,
target_date[[1]][[1]]$site_name,
target_date[[1]][[1]]$cal_reso))
Run the code above in your browser using DataLab