diff --git a/R/SDMXServiceProvider-methods.R b/R/SDMXServiceProvider-methods.R index c50c2f6..f6a6c6e 100644 --- a/R/SDMXServiceProvider-methods.R +++ b/R/SDMXServiceProvider-methods.R @@ -85,21 +85,23 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://sdw-wsrest.ecb.europa.eu/service", repoUrl = "https://sdw-wsrest.ecb.europa.eu/service", - compliant = TRUE) + compliant = TRUE + ) ) - + #EUROSTAT ESTAT <- SDMXServiceProvider( agencyId = "ESTAT", name = "Eurostat (Statistical office of the European Union)", builder = SDMXREST21RequestBuilder( regUrl = "https://ec.europa.eu/eurostat/api/dissemination/sdmx/2.1", repoUrl = "https://ec.europa.eu/eurostat/api/dissemination/sdmx/2.1", - compliant = TRUE) + compliant = TRUE + ) ) ESTAT@builder@handler$dataflow = function(obj){ if(is.null(obj@resourceId)) obj@resourceId = "all" if(is.null(obj@version)) obj@version = "latest" - req <- sprintf("%s/dataflow/ESTAT/%s/%s/",obj@regUrl, obj@resourceId, obj@version) + req <- sprintf("%s/dataflow/ESTAT/%s/%s/",obj@regUrl, obj@resourceId, obj@version) return(req) } ESTAT@builder@handler$datastructure = function(obj){ @@ -116,7 +118,8 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://ec.europa.eu/eurostat/api/comext/dissemination/sdmx/2.1", repoUrl = "https://ec.europa.eu/eurostat/api/comext/dissemination/sdmx/2.1", - compliant = TRUE) + compliant = TRUE + ) ) ESTAT_COMEXT@builder@handler$dataflow = ESTAT@builder@handler$dataflow ESTAT_COMEXT@builder@handler$datastructure = ESTAT@builder@handler$datastructure @@ -127,7 +130,8 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://webgate.ec.europa.eu/grow/redisstat/api/dissemination/sdmx/2.1", repoUrl = "https://webgate.ec.europa.eu/grow/redisstat/api/dissemination/sdmx/2.1", - compliant = TRUE) + compliant = TRUE + ) ) ESTAT_GROW@builder@handler$dataflow = ESTAT@builder@handler$dataflow ESTAT_GROW@builder@handler$datastructure = ESTAT@builder@handler$datastructure @@ -138,7 +142,8 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://webgate.ec.europa.eu/comp/redisstat/api/dissemination/sdmx/2.1", repoUrl = "https://webgate.ec.europa.eu/comp/redisstat/api/dissemination/sdmx/2.1", - compliant = TRUE) + compliant = TRUE + ) ) ESTAT_COMP@builder@handler$dataflow = ESTAT@builder@handler$dataflow ESTAT_COMP@builder@handler$datastructure = ESTAT@builder@handler$datastructure @@ -149,7 +154,8 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://webgate.ec.europa.eu/empl/redisstat/api/dissemination/sdmx/2.1", repoUrl = "https://webgate.ec.europa.eu/empl/redisstat/api/dissemination/sdmx/2.1", - compliant = TRUE) + compliant = TRUE + ) ) ESTAT_EMPL@builder@handler$dataflow = ESTAT@builder@handler$dataflow ESTAT_EMPL@builder@handler$datastructure = ESTAT@builder@handler$datastructure @@ -160,8 +166,11 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://sdmxcentral.imf.org/ws/public/sdmxapi/rest", repoUrl = "https://sdmxcentral.imf.org/ws/public/sdmxapi/rest", - compliant = TRUE) + compliant = TRUE, + unsupportedResources = list("data") + ) ) + #IMF_DATA IMF_DATA <- SDMXServiceProvider( agencyId = "IMF_DATA", name = "International Monetary Fund - Data Portal", @@ -197,7 +206,7 @@ setSDMXServiceProviders <- function(){ # nocov start compliant = TRUE ) ) - + #COUNTDOWN 2030 CD2030 <- SDMXServiceProvider( agencyId = "CD2030", "United Nations International Children's Emergency Fund", @@ -224,8 +233,10 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "http://www.ilo.org/ilostat/sdmx/ws/rest", repoUrl = "http://www.ilo.org/ilostat/sdmx/ws/rest", - compliant = FALSE, skipProviderId = TRUE, - unsupportedResources = list("dataflow")) + compliant = FALSE, + skipProviderId = TRUE, + unsupportedResources = list("dataflow") + ) ) #UN-ILO @@ -234,7 +245,9 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://sdmx.ilo.org/rest", repoUrl = "https://sdmx.ilo.org/rest", - compliant = TRUE, skipProviderId = TRUE) + compliant = TRUE, + skipProviderId = TRUE + ) ) #WBG_WITS (World Integrated Trade Solution) @@ -243,7 +256,8 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "https://wits.worldbank.org/API/V1/SDMX/V21/rest", repoUrl = "https://wits.worldbank.org/API/V1/SDMX/V21/rest", - compliant = TRUE, skipProviderId = TRUE + compliant = TRUE, + skipProviderId = TRUE ) ) @@ -253,17 +267,19 @@ setSDMXServiceProviders <- function(){ # nocov start builder = SDMXREST21RequestBuilder( regUrl = "http://api.worldbank.org/v2/sdmx/rest", repoUrl = "http://api.worldbank.org/v2/sdmx/rest", - compliant = TRUE, skipProviderId = TRUE + compliant = TRUE, + skipProviderId = TRUE ) ) - + #PDH.STAT (Pacific Data Hub by The Pacific Community) PDH <- SDMXServiceProvider( agencyId = "PDH", name = "Pacific Data Hub DotStat", builder = SDMXREST21RequestBuilder( regUrl = "https://stats-nsi-stable.pacificdata.org/rest", repoUrl = "https://stats-nsi-stable.pacificdata.org/rest", - compliant = FALSE) + compliant = FALSE + ) ) #national data providers @@ -275,8 +291,9 @@ setSDMXServiceProviders <- function(){ # nocov start scale = "national", country = "AUS", builder = SDMXREST21RequestBuilder( regUrl = "https://api.data.abs.gov.au", - repoUrl = "https://api.data.abs.gov.au", - compliant = TRUE) + repoUrl = "https://api.data.abs.gov.au", + compliant = TRUE + ) ) #NBB {Belgium} @@ -285,8 +302,9 @@ setSDMXServiceProviders <- function(){ # nocov start scale = "national", country = "BEL", builder = SDMXDotStatRequestBuilder( regUrl = "https://stat.nbb.be/RestSDMX/sdmx.ashx", - repoUrl = "https://stat.nbb.be/RestSDMX/sdmx.ashx", - unsupportedResources = list("dataflow")) + repoUrl = "https://stat.nbb.be/RestSDMX/sdmx.ashx", + unsupportedResources = list("dataflow") + ) ) #INSEE {France} @@ -295,8 +313,9 @@ setSDMXServiceProviders <- function(){ # nocov start scale = "national", country = "FRA", builder = SDMXREST21RequestBuilder( regUrl = "https://bdm.insee.fr/series/sdmx", - repoUrl = "https://bdm.insee.fr/series/sdmx", - compliant = TRUE) + repoUrl = "https://bdm.insee.fr/series/sdmx", + compliant = TRUE + ) ) #INEGI (Mexico) @@ -565,7 +584,7 @@ setSDMXServiceProviders <- function(){ # nocov start listOfProviders <- list( #international - BIS, ECB, ESTAT,ESTAT_COMEXT, ESTAT_COMP, ESTAT_GROW, ESTAT_EMPL, IMF, IMF_DATA, OECD, UNICEF, CD2030, UNSD, ILO_Legacy, ILO, WBG_WITS, WB, PDH, + BIS, ECB, ESTAT, ESTAT_COMEXT, ESTAT_COMP, ESTAT_GROW, ESTAT_EMPL, IMF, IMF_DATA, OECD, UNICEF, CD2030, UNSD, ILO_Legacy, ILO, WBG_WITS, WB, PDH, #national ABS, NBB, INSEE, INEGI, ISTAT_LEGACY, ISTAT, NOMIS, LSD, NCSI, BBK, #others