Encoding problem in search

The results were incorrectly encoded.
wilsonfreitas · Oct 30, 2020 · 07fb9b1 · 07fb9b1
1 parent 49f571c
commit 07fb9b1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/R/rbcb_search.R b/R/rbcb_search.R
@@ -18,9 +18,7 @@
 search_series <- function(q, page = 1) {
   url <- search_series_url(q, page = page)
   res <- http_getter(url)
-
-  # x <- httr::content(res, as = 'text')
-  x <- http_gettext(res)
+  x <- httr::content(res, as = 'text', encoding = "UTF-8")
   doc <- xml2::read_html(x)
 
   nodes <- xml2::xml_find_all(doc, '//*[@class="dataset-item"]')

diff --git a/tests/testthat/test-search.R b/tests/testthat/test-search.R
@@ -0,0 +1,9 @@
+
+context('Search series')
+
+test_that('should check if encoding is ok', {
+  x <- search_series("IPCA")
+
+  expect_equal(x[[1]][[1]]$title,
+               "Índice de Preços ao Consumidor-Amplo (IPCA) - Não comercializáveis")
+})