#67 add UIS (UNESCO) SDMX web-service connector

opensdmx · Oct 6, 2015 · a336203 · a336203
1 parent 443a3cb
commit a336203
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/R/SDMXServiceProvider-methods.R b/R/SDMXServiceProvider-methods.R
@@ -42,6 +42,12 @@ setSDMXServiceProviders <- function(){
       SDMXServiceProvider(
         "ILO", "International Labour Organization of the United Nations",
         SDMXRESTRequestBuilder("http://www.ilo.org/ilostat/sdmx/ws/rest", FALSE)                  
+      ),
+
+      #UIS (UNESCO)
+      SDMXServiceProvider(
+        "UIS", "UNESCO Institute of Statistics",
+        SDMXRESTRequestBuilder("http://data.uis.unesco.org/RestSDMX/sdmx.ashx", TRUE)
       )
 
   )

diff --git a/tests/testthat/test_Main_Helpers.R b/tests/testthat/test_Main_Helpers.R
@@ -60,3 +60,13 @@ test_that("Dataset - UN-ILO",{
   expect_is(sdmx, "SDMXGenericData")
 })
 
+#UIS (UNESCO)
+test_that("Dataset - UIS (UNESCO)",{
+  testthat::skip_on_travis()
+  testthat::skip_on_cran()
+  sdmx <- readSDMX(agencyId = "UIS", operation = "GetData",
+                   key = "EDULIT_DS", filter = list("OFST_1_CP", NULL), filter.native = TRUE,
+                   start = "2000", end = "2015")
+  expect_is(sdmx, "SDMXGenericData")
+})
+