exposure <- HS_Hatch %>%
    group_by(ClutchID) %>%
    summarize(first_visit = min(date_visit),
              last_visit = max(date_visit),
              exposure = last_visit - first_visit)
https://stackoverflow.com/questions/40570221/calculate-difference-between-dates-by-group-in-r