1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
## ---- eval=FALSE, results="hide"-----------------------------------------
# devtools::install_github("opensdmx/rsdmx")
## ----eval = FALSE,results="hide"-----------------------------------------
# library(rsdmx)
## ----eval = FALSE,results="hide"-----------------------------------------
# myUrl <- "https://stats.oecd.org/restsdmx/sdmx.ashx/GetData/MIG/TOT../OECD?startTime=2000&endTime=2011"
# dataset <- readSDMX(myUrl)
# stats <- as.data.frame(dataset)
## ----eval = FALSE,results="hide"-----------------------------------------
# providers <- getSDMXServiceProviders();
# as.data.frame(providers)
## ---- eval = FALSE,message = FALSE,results="hide"------------------------
# sdmx <- readSDMX(providerId = "OECD", resource = "data", flowRef = "MIG",
# key = list("TOT", NULL, NULL), start = 2010, end = 2011)
# df <- as.data.frame(sdmx)
# head(df)
## ---- eval = FALSE,message = FALSE,results="hide"------------------------
# sdmx <- readSDMX(providerId = "OECD", resource = "data", flowRef = "MIG",
# key = list("TOT", NULL, NULL), start = 2010, end = 2011,
# dsd = TRUE)
# df <- as.data.frame(sdmx, labels = TRUE)
# head(df)
## ---- eval = FALSE,message = FALSE,results="hide"------------------------
# #data without DSD
# sdmx.data <- readSDMX(providerId = "OECD", resource = "data", flowRef = "MIG",
# key = list("TOT", NULL, NULL), start = 2010, end = 2011)
#
# #DSD
# sdmx.dsd <- readSDMX(providerId = "OECD", resource = "datastructure", resourceId = "MIG")
#
# #associate data and dsd
# sdmx.data <- setDSD(sdmx.data, sdmx.dsd)
## ---- eval = FALSE-------------------------------------------------------
# #bulk download from Eurostat
# tf <- tempfile(tmpdir = tdir <- tempdir()) #temp file and folder
# download.file("https://ec.europa.eu/eurostat/estat-navtree-portlet-prod/BulkDownloadListing?sort=1&file=data%2Frd_e_gerdsc.sdmx.zip", tf)
# sdmx_files <- unzip(tf, exdir = tdir)
#
# #read local SDMX (set isURL = FALSE)
# sdmx <- readSDMX(sdmx_files[2], isURL = FALSE)
# stats <- as.data.frame(sdmx)
#
## ----eval = FALSE,results="hide"-----------------------------------------
# clUrl <- "http://data.fao.org/sdmx/registry/codelist/FAO/CL_FAO_MAJOR_AREA/0.1"
# clobj <- readSDMX(clUrl)
# cldf <- as.data.frame(clobj)
## ----eval = FALSE,results="hide"-----------------------------------------
# dsdUrl <- "https://stats.oecd.org/restsdmx/sdmx.ashx/GetDataStructure/TABLE1"
# dsd <- readSDMX(dsdUrl)
## ----eval = FALSE,results="hide"-----------------------------------------
# #get codelists from DSD
# cls <- slot(dsd, "codelists")
#
# #get list of codelists
# codelists <- sapply(slot(cls, "codelists"), function(x) slot(x, "id"))
#
# #get a codelist
# codelist <- as.data.frame(slot(dsd, "codelists"), codelistId = "CL_TABLE1_FLOWS")
## ----eval = FALSE,results="hide"-----------------------------------------
# #get concepts from DSD
# concepts <- as.data.frame(slot(dsd, "concepts"))
## ---- eval = FALSE, results="hide"---------------------------------------
# saveSDMX(sdmx, "tmp.RData")
## ---- eval = FALSE, results="hide"---------------------------------------
# sdmx <- readSDMX("tmp.RData", isRData = TRUE)
|
