Izvelk ciema vai pilsētas nosaukumu no adreses

gistfile1.r

extr.ciems <- function(adr_txt) {
  # Konvertē visu uz mazajiem burtiem
  adr_txt <- tolower(adr_txt)
  # Teksta fragmenti, kas neder
  pattern <- " nov| pag|\"|[0-9]|\\."
  # Sadala adresi pa fragmentiem, izvēlas derīgos, apgriež otrādi un paņem 1.
  x <- sapply(strsplit(adr_txt, split = ", "),
              function(txt) trim(rev(grep(pattern, txt,
                                          value = T, invert = T))[1]))
  # Izlabo kļūdu, kad beidzas ar ā
  y <- gsub("ā$", "a", x)
  # Atgriež NA vai ciema nosaukumu ar pirmo lielo burtu
  return(ifelse(is.na(y), NA, gsub("(^)(.)", "\\1\\U\\2", y, perl = T)))
}