fixed xml parsing due to httr::content change

ropensci-archive · Feb 7, 2016 · 1e7240b · 1e7240b
1 parent d349d02
commit 1e7240b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/zzz.R b/R/zzz.R
@@ -29,7 +29,7 @@ bhl_GET <- function(as, args, ...){
   out <- GET(bhl_url(), query = args, ...)
   stop_for_status(out)
   res <- switch(as,
-         xml = xmlSize(xpathSApply(content(out), "//Result")[[1]]),
+         xml = xmlSize(xpathSApply(xmlParse(content_utf8(out)), "//Result")[[1]]),
          json = length(jsonlite::fromJSON(content_utf8(out))$Result),
          list = length(jsonlite::fromJSON(content_utf8(out))$Result),
          table = length(jsonlite::fromJSON(content_utf8(out))$Result))