R/cleanNames.R

In atajti/andego.adattisztitas: Alapvető Adattisztítási Feladatok Magyarul / Basic Data Cleaning for Hungarian Data

#' Névtisztítás
#'
#' Cég- és személynevek egységes alakra hozása
#'
#' @param x karakter vektor, megtisztítandó személynevekkel
#'
#' @details
#' A függvény valójában csak egy wrapper, a \code{detectFirms} eredménye
#'   alapján eldönti, melyik névre alkalmazza a \code{cleanPersonNames}
#'   és melyikre a \code{cleanFirms} függvényt.
#'
#' @return
#' karakter vektor, a tisztított nevekkel
#'
#' @author
#' Tajti András <atajti@andego.hu>
#' 
#' @examples
#' cleanNames("Sándor József Benedek")
#' cleanNames("S. József Benedek")
#' cleanNames("Sándor J. Benedek")
#' cleanNames(c("Andego Tanácsadó Korlátolt felelősségű társaság",
#'              "Magyar Telekom Nyrt"))
#'
#' @encoding UTF-8
#' @export

cleanNames <- function(x){
  res <- character(length(x))
  firms <- detectFirms(x)
  res[!sapply(firms, isTRUE)] <- cleanPersonNames(x[!sapply(firms, isTRUE)])
  res[sapply(firms, isTRUE)] <- cleanFirms(x[sapply(firms, isTRUE)])
  return(res)
}