Use Formatter to default IMF references

Author: aboddie

R/SDMXServiceProvider-methods.R

@@ -168,7 +168,10 @@ setSDMXServiceProviders <- function(){ # nocov start
     builder = SDMXREST21RequestBuilder(
       regUrl = "https://api.imf.org/external/sdmx/2.1",
       repoUrl = "https://api.imf.org/external/sdmx/2.1",
-      compliant = TRUE)
+      compliant = TRUE,
+      formatter$datastructure = function(obj){
+        if(is.null(obj@references)) obj@references = "descendants"
+        return(obj)})
   )
 
   #OECD

R/readSDMX.R

@@ -208,13 +208,6 @@ readSDMX <- function(file = NULL, isURL = TRUE, isRData = FALSE,
                        references = references,
                        compliant = provider@builder@compliant
                      )
-    
-    #allow IMF requests to use descendants instead of children
-    if(providerId == "IMF_DATA"){
-      if(is.null(references)){
-        requestParams@references <- "descendants"
-      }
-    }
 
     #formatting requestParams
     requestFormatter <- provider@builder@formatter