Spatially weighted averages in R with sf