Nothing
require("RJSDMX")
############################ "OECD ############################
names(getDimensions('OECD','G20_PRICES')) # I think this is also in correct order
getCodes('OECD', 'G20_PRICES', 'FREQUENCY')
# message: Internal Server Error Dec 10,2014
# nm <- getFlows('OECD')
# names(nm)
# nm['G20_PRICES']
#
# nm[grepl('TRADE', names(nm))]
# nm[grepl('WATER', names(nm))]
# nm[grepl('FISH', names(nm))]
tts <- getSDMX('OECD', 'G20_PRICES.CAN.*.*.M')
names(tts)
#### monthly data ####
tts1 <- getSDMX('OECD', 'G20_PRICES.CAN.*.IXOB.M')[[1]]
if(start(tts1) != "Jan 1949") stop("OECD monthly retrieval changed start date.")
if(frequency(tts1) != 12) stop("OECD monthly retrieval frequency changed.")
# Can only year, not period, be specified for start and end?
# tts2 <- getSDMX('OECD', 'G20_PRICES.CAN.CPALTT01.IXOB.M', start="Jan 2010")
tts2 <- getSDMX('OECD', 'G20_PRICES.CAN.CPALTT01.IXOB.M', start="2010")[[1]]
if(start(tts2) != "Jan 2010") stop("OECD monthly retrieval 2 changed start date.")
if(frequency(tts2) != 12) stop("OECD monthly retrieval 2 frequency changed.")
#### quarterly data ####
# RJSDMX::sdmxHelp() # build command can help find data query
# failing again, with "Premature end of file." Dec 11, 2015
# failing in summer 2016 because PPPGDP now has no data.
# Switched to B1_GE.
names(getDimensions('OECD','QNA'))
# getCodes('OECD', 'QNA', 'FREQUENCY')
# getCodes('OECD', 'QNA', 'SUBJECT')$PPPGDP
# getCodes('OECD', 'QNA', 'SUBJECT')$GDP
# getCodes('OECD', 'QNA', 'SUBJECT')$B1_GE
# GDP - expenditure approach
# getCodes('OECD', 'QNA', 'MEASURE')$CARSA
#National currency, current prices, annual levels, seasonally adjusted
## from TSsdmx print(verifyQuery('OECD', 'QNA.CAN.PPPGDP.CARSA.Q'))
# Sept 2015 QNA.CAN.GDP.CARSA.Q gave 500, message: Internal Server Error
# This was a provider error now fixed, BUG #80 closed
# But, in spring/summer 2016 it was valid query but returned no data.
# Also 'QNA.CAN.GDP.CARSA.Q' was valid query but returned no data.
# 'QNA.CAN.B1_GE.CARSA.Q' does have data
tts <- getSDMX('OECD', 'QNA.CAN.B1_GE.CARSA.Q')
#tts <- getSDMX('OECD', 'QNA.CAN+CHE.B1_GE.CUR+CARSA.Q')
if(start(tts[[1]]) != "1961 Q1") #Oct 2018. previously "1960 Q1"
stop("OECD quarterly retrieval test 1 changed start date.")
# SDMX + and | queries do not necessarily determine the returned order.
# This was BUG #22 which was closed with work around in RJSDMX by using ; to
# separate queries and maintain order. Thus
# tts <- getSDMX('OECD', 'QNA.CAN+USA+MEX.PPPGDP.CARSA.Q')
# returns data, but order is not guaranteed. Instead use
tts <- getSDMX('OECD',
'QNA.CAN.B1_GE.CARSA.Q;QNA.USA.B1_GE.CARSA.Q;QNA.MEX.B1_GE.CARSA.Q')
if (! all(names(tts) == c("QNA.CAN.B1_GE.CARSA.Q",
"QNA.USA.B1_GE.CARSA.Q", "QNA.MEX.B1_GE.CARSA.Q")))
stop("OECD quarterly test 2 retrieval series names changed.")
if(start(tts[[1]]) != "1961 Q1") #Oct 2018. previously "1960 Q1"
stop("OECD quarterly retrieval test 3 changed start date.")
if(frequency(tts[[1]]) != 4)
stop("OECD quarterly retrieval test 4 frequency changed.")
# test "+" and "|" in query
tts2 <- getSDMX('OECD', 'QNA.CAN+USA|MEX.B1_GE.CARSA.Q')
# order is not guaranteed
#if (! all(names(tts) == names(tts2)))
# stop("OECD quarterly test 5 retrieval series names changed.")
if(start(tts[[1]]) != start(tts2[[1]]))
stop("OECD quarterly retrieval test 6 changed start date.")
if(frequency(tts[[1]]) != frequency(tts2[[1]]))
stop("OECD quarterly retrieval test 7 frequency changed.")
# Annual only ??
tts <- getSDMX('OECD', 'BSI.NAT.EQU.TOT.DIR.CAN')
if ( names(tts) != "BSI.NAT.EQU.TOT.DIR.CAN" )
stop("OECD annual retrieval 1 series names changed.")
if(start(tts[[1]]) != "2009")
stop("OECD annual retrieval 1 changed start date.")
if(frequency(tts[[1]]) != 1)
stop("OECD annual retrieval 1 frequency changed.")
#### annual data ####
tts <- getSDMX('OECD', '7HA_A_Q.CAN.*.*.*.*')
names(tts)
# the names change from time to time
#if (names(tts)[[1]] != "7HA_A_Q.CAN.AF411LI.ST.C.A")
# stop("OECD annual retrieval first series changed.")
if(start(tts[[1]]) != "1995") stop("OECD annual retrieval changed start date.")
if(frequency(tts[[1]]) != 1) stop("OECD annual retrieval frequency changed.")
tts <- getSDMX('OECD', '7HA_A_Q.CAN.AF411LI.ST.C.A', start="2001", end="2009")
if(start(tts[[1]]) != "2001") stop("OECD annual retrieval start date error.")
if(end(tts[[1]]) != "2009") stop("OECD annual retrieval end date error.")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.