encoding change to synonyms fxn fix #334

ropensci · May 28, 2015 · 8f46176 · 8f46176
1 parent 307df71
commit 8f46176
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -4,7 +4,7 @@ Description: Taxonomic information from around the web. This package
     interacts with a suite of web APIs for taxonomic tasks, such
     as verifying species names, getting taxonomic hierarchies,
     and verifying name spelling.
-Version: 0.5.4.9300
+Version: 0.5.4.9320
 License: MIT + file LICENSE
 URL: https://github.com/ropensci/taxize
 BugReports: https://github.com/ropensci/taxize/issues

diff --git a/R/synonyms.R b/R/synonyms.R
@@ -142,7 +142,7 @@ col_synonyms <- function(x, ...) {
   args <- list(id = x, response = "full")
   res <- GET(base, query = args)
   stop_for_status(res)
-  out <- xmlParse(content(res, "text"), encoding = "UTF-8")
+  out <- xmlParse(content(res, "text", encoding = "UTF-8"), encoding = "UTF-8")
   xml <- xpathApply(out, "//synonyms")
   if (length(xpathApply(xml[[1]], "synonym")) == 0) {
     NULL