diff --git a/DESCRIPTION b/DESCRIPTION index 2c01f7a..db6d14c 100644 --- 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 Maintainer: Emmanuel Blondel 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 index 300c8dc..11b97d7 100644 --- 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 index c1d8c1a..2ec1c93 100644 --- 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 index e2fe565..6e6b5ab 100644 --- a/man/RFirmsGeo.Rd +++ b/man/RFirmsGeo.Rd @@ -14,7 +14,7 @@ factsheet web-resources. 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 }