Nothing
if (FALSE){ # previously this all worked
########################### "INEGI" ###########################
##### Instituto Nacional de Estadistica y Geografia (Mexico) ######
require("TSsdmx")
inegi <- TSconnect("sdmx", dbname="INEGI")
z <- TSget('DF_STES.M.MX.*.*.*.*', inegi)
if(!all(start(z) == c(1991,1))) stop("test 1 start date changed.")
if (12 != frequency(z) ) stop("test 1 frequency error.")
if(tframe::nseries(z) != 26) stop("test 1 number of series changed.")
z <- TSget('DF_STES.M.MX.PRMNTO01.IXNB.SA.2008100', inegi)
if(!all(start(z) == c(1993,1))) stop("test 2 start date changed.")
if (12 != frequency(z)) stop("test 2 frequency error.")
if(tframe::nseries(z) != 1) stop("test 2 number of series changed.")
}
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.