R/data_utils.R

In vadmbertr/bonski.data: Data To Tell Where Ski Is Good

#' Restrict data to the french Alps
#'
#' @param x tibble
#'
#' @return tibble
#'
#' @export
restrict_to_french_alps <- function(x) {
  regions_sf <- dplyr::bind_rows(
    geojsonsf::geojson_sf("data-raw/paca.geojson"),
    geojsonsf::geojson_sf("data-raw/ara.geojson"))
  sf::st_filter(x, regions_sf, .predicate = sf::st_within)
}