R/cvr_correct_url.R

In krose/cvrapi: R Wrapper for the CVR API.

#' Corrects url encoding for Danish letters.
#'
#' @param url A build url.
cvr_correct_url <- function(url){
  url <- stringr::str_replace_all(string = url, pattern = "%C6", replacement = "%C3%86") # Æ
  url <- stringr::str_replace_all(string = url, pattern = "%D8", replacement = "%C3%98") # Ø
  url <- stringr::str_replace_all(string = url, pattern = "%C5", replacement = "%C3%85") # Å
  url <- stringr::str_replace_all(string = url, pattern = "%E6", replacement = "%C3%A6") # æ
  url <- stringr::str_replace_all(string = url, pattern = "%F8", replacement = "%C3%B8") # ø
  url <- stringr::str_replace_all(string = url, pattern = "%E5", replacement = "%C3%A5") # å

  return(url)
}