R/umlautfix.R

In neugelb/neugelbtools: Various small Neugelb tools

#' umlautfix
#'
#' Get rid of pesky umlauts!
#' @param x Your data object - column or vector
#' @export

umlautfix <- function(x) {

  x <- gsub("ü",'ue',x)
  x <- gsub("ö",'oe',x)
  x <- gsub("ä",'ae',x)
  x <- gsub("Ä",'Ae',x)
  x <- gsub("Ü",'Ue',x)
  x <- gsub("Ö",'Oe',x)
}