change method to httr for listing factsheet info, bypassing security …

…issue
openfigis · Nov 17, 2019 · b511da9 · b511da9
1 parent 4aa3461
commit b511da9
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,13 +1,13 @@
 Package: RFirmsGeo
 Version: 0.2-3
-Date: 2019-10-28
+Date: 2019-11-17
 Title: Tools for georeferencing FIRMS stocks and fisheries
 Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
 Maintainer: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
 Depends:
     R (>= 2.15)
 Imports:
-    methods, sf, sp, rgeos, maptools, ows4R, RFigisGeo, cleangeo, RCurl, XML, geometa
+    methods, sf, sp, rgeos, maptools, ows4R, RFigisGeo, cleangeo, RCurl, XML, geometa, httr
 Suggests:
     parallel, testthat
 Description:

diff --git a/R/RFirmsGeo.R b/R/RFirmsGeo.R
@@ -11,7 +11,7 @@
 #'    Package: \tab RFirmsGeo\cr
 #'    Type: \tab Package\cr
 #'    Version: \tab 0.2-3\cr
-#'    Date: \tab 2019-10-28\cr
+#'    Date: \tab 2019-11-17\cr
 #'    License: \tab GPL(>=2.0)\cr
 #'    LazyLoad: \tab yes\cr
 #'  }

diff --git a/R/fetchFactsheetInfo.R b/R/fetchFactsheetInfo.R
@@ -467,7 +467,7 @@ fetchFactsheetReferences <- function(host, domain, verbose = TRUE){
   domainUrl <- sprintf("%s/figis/monikerj/%s", host, domainName)
 
   logger.info(paste0("GET ", domainUrl))
-  reqText <- getURL(domainUrl)
+  reqText <- httr::content(httr::GET(domainUrl),"text")
   domainXml <- xmlParse(reqText)
   xmlURIList <- sapply(getNodeSet(domainXml, "//arrayitem"), xmlGetAttr, "xmlURI")
   xmlURIList <- xmlURIList[!sapply(xmlURIList, is.null)]

diff --git a/man/RFirmsGeo.Rd b/man/RFirmsGeo.Rd