master #11 fix type.SDMXType

opensdmx · May 25, 2014 · 7d14c59 · 7d14c59
1 parent 34d5bea
commit 7d14c59
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/SDMXType-methods.R b/R/SDMXType-methods.R
@@ -6,8 +6,10 @@ SDMXType <- function(xmlObj){
 }
 
 type.SDMXType <- function(xmlObj){
-	r <- xmlRoot(xmlObj); 
-	type <-strsplit(xmlName(xmlRoot(xmlObj), full=T), ":")[[1]][2]
+  type <- xmlName(xmlRoot(xmlObj))
+  if(attr(regexpr(":", type, ignore.case = T),"match.length") > 0){
+    type <-strsplit(xmlName(xmlRoot(xmlObj), full=T), ":")[[1]][2]
+  }  
 	res <- paste("SDMX", type, sep="");
 	return(res)
 }