R/clean_deaneries.R

In davelovellCARU/carumapr: Handling Anglican map data

clean_deaneries =
  function(deaneryTibble,
           deaneryId = "Deanery_ID",
           geometry = "geometry",
           ignore = character(),
           unwanted = c("39000", "1", "0", "NA"),
           threshold = 10) {

    (deaneryTibble %>%
       (dplyr::filter)(!(!!rlang::sym(deaneryId) %in% unwanted))) ->
      filteredTibble

    (filteredTibble %>%
        mutate(geometry =
                 (function(deaneryId, geom) {
                   # print(geom[1])
                   # print(class(geom))
                   # print(class(geom[1]))
                   geom[!(deaneryId %in% ignore)]  =
                     carumapr::despecle_multipolygon(geom[!(deaneryId %in% ignore)],
                                           threshold)
                   return(geom)
                 })(!!rlang::sym(deaneryId), !!rlang::sym(geometry)))) ->
      despeckledTibble

    return(despeckledTibble)
  }