Nothing
.setUp <- function() {
}
.tearDown <- function() {
}
test.sdmx <- function() {
cat('\ngetProviders\n')
p = getProviders()
checkTrue(length(p)>0, msg='Lista dei providers vuota')
cat('getFlows\n')
flows = tryCatch({
getFlows('ECB')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkTrue(length(flows)>0, msg='Lista dei flussi vuota')
cat('getDSDIdentifier\n')
id = tryCatch({
getDSDIdentifier (provider='ECB', dataflow='EXR')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals("ECB/ECB_EXR1/1.0", current=id, msg='Errore nel nome del dsd')
cat('getDimensions\n')
dims = tryCatch({
getDimensions(provider='ECB', dataflow='EXR')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(5, current=length(dims), msg='Errore nel numero di dimensioni')
cat('getTimeSeries\n')
tts = tryCatch({
getTimeSeries(provider='ECB',id='EXR.A.USD+GBP.EUR.SP00.A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(2, current=length(tts), msg='Errore nella getTimeSeries con +')
tts = tryCatch({
getTimeSeries(provider='ECB',id='EXR.A.USD.EUR.SP00.A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(1, current=length(tts), msg='Errore nella getTimeSeries semplice')
tts = tryCatch({
getTimeSeries(provider='ECB',id='EXR..USD.EUR.SP00.A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(5, current=length(tts), msg='Errore nella getTimeSeries con *')
}
test.sdmx3 <- function() {
cat('getFlows\n')
flows = tryCatch({
getFlows('DEMO_SDMXV3')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkTrue(length(flows)>0, msg='Lista dei flussi vuota')
cat('getDSDIdentifier\n')
id = tryCatch({
getDSDIdentifier (provider='DEMO_SDMXV3', dataflow='EXR')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals("ECB/ECB_EXR1/1.0", current=id, msg='Errore nel nome del dsd')
cat('getDimensions\n')
dims = tryCatch({
getDimensions(provider='DEMO_SDMXV3', dataflow='EXR')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(5, current=length(dims), msg='Errore nel numero di dimensioni')
cat('getTimeSeries\n')
tts = tryCatch({
getTimeSeries2(provider='DEMO_SDMXV3',dataflow = 'EXR', key = 'A.USD.EUR.SP00.A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(1, current=length(tts), msg='Errore nella getTimeSeries semplice')
tts = tryCatch({
getTimeSeries2(provider='DEMO_SDMXV3', dataflow = 'EXR', key = '*.USD.EUR.SP00.A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(5, current=length(tts), msg='Errore nella getTimeSeries con *')
tts = tryCatch({
getTimeSeries2(provider='DEMO_SDMXV3', dataflow = 'EXR', filter = 'c[CURRENCY]=USD&c[EXR_SUFFIX]=A')
}, warning = function(w) {
print(w)
quit(status=-1)
}, error = function(e) {
print(e)
quit(status=-1)
})
checkEquals(5, current=length(tts), msg='Errore nella getTimeSeries con filtro')
# not working... why?
# tts = tryCatch({
# getTimeSeries2(provider='DEMO_SDMXV3', dataflow = 'EXR', key = '*.USD.EUR.SP00.*', filter = 'c[EXR_SUFFIX]=A')
# }, warning = function(w) {
# print(w)
# quit(status=-1)
# }, error = function(e) {
# print(e)
# quit(status=-1)
# })
# checkEquals(5, current=length(tts), msg='Errore nella getTimeSeries con filtro e key')
#
}
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.