inst/testWithInternet/0serviceCheck_OECD.R

In TSsdmx: 'TSdbi' Extension to Connect with 'SDMX'

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]]) != "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]]) != "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.")