#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.