R/function_simplifyVenues.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.

simplifyVenues <- 
  function(dg, descSearch = "Exhibition",  distance = 1, 
           maxIterations = 100, rbind = TRUE) {
    
    output <- 
      dg %>% 
      dplyr::filter(str_detect(desc, descSearch)) %>%
      simplifyPoints(distance = distance, maxIterations = maxIterations) %>%
      mutate(type = st_geometry_type(geometry)) %>% 
      select(desc, type, geometry)
    
    if (rbind == TRUE) {
      output <- 
        list(
          dg %>% 
            dplyr::filter(!str_detect(str_to_lower(desc), str_to_lower(descSearch))), 
          output) %>% 
        .bind_rows_sf()
    }
    
    return(output)
    
  }