#47 fix SDMX code parser

Author: eblondel

R/SDMXCode-methods.R

@@ -48,6 +48,7 @@ SDMXCode <- function(xmlObj){
     sapply(codeLabelsXML,
            function(x){
              lang <- xmlGetAttr(x,"xml:lang")
+             if(is.null(lang)) lang <- "default"
              codeLabels[[lang]] <- xmlValue(x)
            })
     codeLabels <- as.list(codeLabels)

R/readSDMX.R

@@ -11,7 +11,7 @@ readSDMX <- function(file, isURL = TRUE){
 		if(!file.exists(file))
 			stop("File ", file, "not found\n")
 		xmlObj <- xmlTreeParse(file, useInternalNodes = TRUE)
-    		status <- 1
+    status <- 1
 	}else{
 		rsdmxAgent <- paste("rsdmx/",as.character(packageVersion("rsdmx")),sep="")
 		content <- getURL(file, httpheader = list('User-Agent' = rsdmxAgent), ssl.verifypeer = FALSE)