R/dst_correct_url.R

In rOpenGov/dkstat: API connection to the StatBank from Statistics Denmark

#' Corrects url encoding for Danish letters.
#'
#' @param url A build url.
#' @noRd
dst_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)
}