Skip to content

Commit

Permalink
Merge pull request #219 from aboddie/master
Browse files Browse the repository at this point in the history 
Mark data as an unsupported resource for IMF
  • Loading branch information
@eblondel
eblondel authored Jan 22, 2025
2 parents e3596d4 + 2e7311d commit d74cdd2
Showing 1 changed file with 43 additions and 24 deletions.
67 changes: 43 additions & 24 deletions R/SDMXServiceProvider-methods.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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){
Expand All @@ -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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -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",
Expand Down Expand Up @@ -197,7 +206,7 @@ setSDMXServiceProviders <- function(){ # nocov start
compliant = TRUE
)
)

#COUNTDOWN 2030
CD2030 <- SDMXServiceProvider(
agencyId = "CD2030", "United Nations International Children's Emergency Fund",
Expand All @@ -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
Expand All @@ -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)
Expand All @@ -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
)
)

Expand All @@ -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
Expand All @@ -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}
Expand All @@ -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}
Expand All @@ -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)
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit d74cdd2

Please sign in to comment.