hr <- amt_fisher %>% nest(data = -id) %>%
mutate(hr = map(data, hr_akde), n = map_int(data, nrow)) %>%
hr_to_sf(hr, id, n)
Error: arguments have different crs
In addition: Warning messages:
1: Problem with `mutate()` input `hr`.
i Discarded datum Unknown based on GRS80 ellipsoid in Proj4 definition
i Input `hr` is `map(data, hr_akde)`.
2: Problem with `mutate()` input `hr`.
i Discarded datum Unknown based on GRS80 ellipsoid in Proj4 definition
i Input `hr` is `map(data, hr_akde)`.
3: Problem with `mutate()` input `hr`.
i Discarded datum Unknown based on GRS80 ellipsoid in Proj4 definition
i Input `hr` is `map(data, hr_akde)`.
4: Problem with `mutate()` input `hr`.
i Discarded datum Unknown based on GRS80 ellipsoid in Proj4 definition
i Input `hr` is `map(data, hr_akde)`.