Merge pull request #60 from leoniedu/master

file encoding issue when reading as raw
wilsonfreitas · Jun 19, 2023 · b0a66ed · b0a66ed
2 parents 664beec + 8ba96df
commit b0a66ed
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/rbcb_get_currencies.R b/R/rbcb_get_currencies.R
@@ -40,8 +40,7 @@ get_currency_list <- function() {
     return(get("TEMP_FILE_CURRENCY_LIST", envir = .CACHE_ENV))
   } else {
     res <- get_valid_currency_list()
-    x <- http_gettext(res)
-
+    x <- http_gettext(res, encoding="windows-1252")
     df <- read.table(text = x, sep = ";", header = TRUE, colClasses = "character")
     names(df) <- c("code", "name", "symbol", "country_code", "country_name", "type", "exclusion_date")
 

diff --git a/R/utils.R b/R/utils.R
@@ -34,7 +34,7 @@ http_poster <- function(url, body, encode = "form", verbose = getOption("rbcb_ve
 http_gettext <- function(res, encoding = "UTF-8", as = "raw") {
   x <- content(res, as = as, encoding = encoding)
   if (as == "raw") {
-    rawToChar(x)
+    iconv(rawToChar(x),from=encoding)
   } else {
     x
   }