fuzzy matching spatial admin names

[OJWatson]

When the spatial files have been added to rdhs, there will probably be a good use for some fuzzy mathcing of admin names etc.

So remember to add this in, with something like:

match_clean <- function(a,b){
  a <- gsub("[[:punct:][:space:]]","",tolower(stringi::stri_trans_general(a, "latin-ascii")))
  b <- gsub("[[:punct:][:space:]]","",tolower(stringi::stri_trans_general(b, "latin-ascii")))
  ret <- match(a,b)
  if(sum(is.na(ret)>0)){
    dists <- stringdist::seq_distmatrix(lapply(a,utf8ToInt),lapply(b,utf8ToInt))
      ret[is.na(ret)] <- apply(dists[which(is.na(ret)),,drop=FALSE],1,which.min)
    print(unique(cbind(a,b[ret])))
  }
  return(ret)
}