R/fixArgEncoding.R

In ogroendal/DSTget: Wrapper for Statistics Denmark API

#' @title fixArgEncoding
#' @description This function check if any encodings are explicitly given as latin1 and then convert to UTF8
#' @name fixArgEncoding
#' @param args The ... arguements from getData
#' @importFrom magrittr %>%
fixArgEncoding <- function(args){

  ## Preventing encoding errorseturn
  if(length(args) > 0){
    names(args) <- names(args) %>% ifelse(Encoding(.) == 'latin1', enc2utf8(.), .)
  }

  return(args)
}