R/function_prepareHazard.R

In avisserquinn/OSMtidy: OSMtidy is an R package for anyone who needs to tidy Open Street Map data into a concise yet complex geospatial dataset with a consistent naming convention.

prepareHazard <- function(shapefileOSM, shapefileHazard, dTol) {
  
  sf <- 
    st_read(shapefileOSM, quiet = TRUE) %>% 
    st_transform(4326)
  
  hazard <- 
    st_read(shapefileHazard, quiet = TRUE) %>% 
    st_make_valid() %>%
    st_transform(27700) %>% 
    st_simplify(dTolerance = dTol) %>% 
    st_transform(4326) 
  
  cookieCutter(sf = sf, sfToCut = hazard) %>% as_tibble %>% st_as_sf %>% select(geometry)
  
}