Skip to content

Commit

Permalink
Merge pull request #203 from aboddie/master
Browse files Browse the repository at this point in the history
Update out of date providers
eblondel authored Dec 10, 2024
2 parents 7637d6d + e02f895 commit 2ed4449
Showing 2 changed files with 10 additions and 10 deletions.
12 changes: 6 additions & 6 deletions R/SDMXServiceProvider-methods.R
Original file line number Diff line number Diff line change
@@ -222,17 +222,17 @@ setSDMXServiceProviders <- function(){ # nocov start
ILO <- SDMXServiceProvider(
agencyId = "ILO", name = "International Labour Organization of the United Nations",
builder = SDMXREST21RequestBuilder(
regUrl = "https://www.ilo.org/sdmx/rest",
repoUrl = "https://www.ilo.org/sdmx/rest",
regUrl = "https://sdmx.ilo.org/rest",
repoUrl = "https://sdmx.ilo.org/rest",
compliant = TRUE, skipProviderId = TRUE)
)

#WBG_WITS (World Integrated Trade Solution)
WBG_WITS <- SDMXServiceProvider(
agencyId = "WBG_WITS", name = "World Integrated Trade Solution",
builder = SDMXREST21RequestBuilder(
regUrl = "http://wits.worldbank.org/API/V1/SDMX/V21/rest",
repoUrl = "http://wits.worldbank.org/API/V1/SDMX/V21/rest",
regUrl = "https://wits.worldbank.org/API/V1/SDMX/V21/rest",
repoUrl = "https://wits.worldbank.org/API/V1/SDMX/V21/rest",
compliant = TRUE, skipProviderId = TRUE
)
)
@@ -294,8 +294,8 @@ setSDMXServiceProviders <- function(){ # nocov start
agencyId = "INEGI", name = "Instituto Nacional de Estad\u00edstica y Geograf\u00eda (M\u00e9jico)",
scale = "national", country = "MEX",
builder = SDMXREST21RequestBuilder(
regUrl = "http://sdmx.snieg.mx/service/Rest",
repoUrl = "http://sdmx.snieg.mx/service/Rest",
regUrl = "https://sdmx.snieg.mx/ServiceV6/rest",
repoUrl = "https://sdmx.snieg.mx/ServiceV6/rest",
compliant = FALSE
)
)
8 changes: 4 additions & 4 deletions tests/testthat/test_Main_Helpers.R
Original file line number Diff line number Diff line change
@@ -180,7 +180,7 @@ test_that("OECD - dataflow",{
#-> datastructure
test_that("OECD - datastructure",{
testthat::skip_on_cran()
sdmx <- readSDMX(providerId = "OECD", resource = "datastructure", resourceId = "TABLE1")
sdmx <- readSDMX(providerId = "OECD", resource = "datastructure", resourceId = "DSD_PRICES")
if(!is.null(sdmx)){
expect_is(sdmx, "SDMXDataStructureDefinition")
}
@@ -189,8 +189,8 @@ test_that("OECD - datastructure",{
#-> data
test_that("OECD - data",{
testthat::skip_on_cran()
sdmx <- readSDMX(providerId = "OECD", resource = "data",
flowRef = "MIG", key = list("TOT", NULL, NULL), start = 2011, end = 2011)
sdmx <- readSDMX(providerId = "OECD", resource = "data", flowRef = "DSD_PRICES@DF_PRICES_N_CP01",
key = list("GRC", NULL, NULL, NULL, NULL, NULL, NULL, NULL), start = 2020, end = 2020)
if(!is.null(sdmx)){
expect_is(sdmx, "SDMXMessageGroup")
}
@@ -582,7 +582,7 @@ test_that("ISTAT - datastructure",{
test_that("ISTAT - data",{
testthat::skip_on_cran()
sdmx <- readSDMX(providerId = "ISTAT", resource = "data",
flowRef = "12_60", start = 2015, end = 2015)
flowRef = "12_60_DF_DCCV_CONSACQUA_1", start = 2015, end = 2015)
if(!is.null(sdmx)){
expect_is(sdmx, "SDMXGenericData")
}

0 comments on commit 2ed4449

Please sign in to comment.