R/clean_ger.R

#' Convert messy german characters to readable output
#'
#'
#' @rdname clean_ger
#' @references
#' Convert messy german characters to readable output
#'


#' @export
#' @rdname clean_ger
clean_ger <- function (x) {
  x = gsub("–", "–", x)
  x = gsub("Ãœ", "Ü", x)
  x = gsub("ä", "ä", x)
  x = gsub("»", "»", x)
  x = gsub("ü", "ü", x)
  x = gsub("‘", "‘", x)
  x = gsub("ö", "ö", x)
  x = gsub("−", "?", x)
  x
}
tim-dim/rlytics documentation built on May 4, 2019, 4:22 p.m.