coneify.R

## @y dataframe of coordinates
## @x vector of buffer sizes for cone diameters

coneify <- function(y, x, ref){
  
  points <- y %>% st_as_sf(coords = c('lng', 'lat'), crs = ref)
  buffs <- st_buffer(points, points$x)
  cone <- st_sf(st_sfc())
  for (i in 2:nrow(buffs)) {
    tmp <- buffs[(i - 1):i,]
    cone[i,] <- st_convex_hull(st_union(tmp))
  }
  
  cone_u <- st_union(cone)
  return(cone_u)
}