fix generic

opensdmx · Aug 28, 2023 · 3c0c231 · 3c0c231
1 parent d3f092a
commit 3c0c231
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/R/SDMXCompactData-methods.R b/R/SDMXCompactData-methods.R
@@ -18,7 +18,7 @@ SDMXCompactData <- function(xmlObj, namespaces){
 }
 
 #methods
-as.data.frame.SDMXAllCompactData <- function(x, nsExpr, labels = FALSE, ...) {
+getSDMXAllCompactData <- function(x, nsExpr, labels = FALSE, ...) {
   xmlObj <- x@xmlObj;
   dataset <- NULL
 
@@ -154,5 +154,5 @@ as.data.frame.SDMXAllCompactData <- function(x, nsExpr, labels = FALSE, ...) {
 
 as.data.frame.SDMXCompactData <- function(x, row.names=NULL, optional=FALSE,
                                           labels = FALSE, ...){
-  return(as.data.frame.SDMXAllCompactData(x, "compact", labels));
+  return(getSDMXAllCompactData(x, nsExpr = "compact", labels = labels));
 }
diff --git a/R/SDMXStructureSpecificData-methods.R b/R/SDMXStructureSpecificData-methods.R
@@ -22,5 +22,5 @@ SDMXStructureSpecificData <- function(xmlObj, namespaces){
 
 as.data.frame.SDMXStructureSpecificData <- function(x, row.names=NULL, optional=FALSE,
                                                     labels = FALSE, ...){
-  return(as.data.frame.SDMXAllCompactData(x, "structurespecific", labels));
+  return(getSDMXAllCompactData(x, nsExpr = "structurespecific", labels = labels));
 }
diff --git a/R/SDMXStructureSpecificTimeSeriesData-methods.R b/R/SDMXStructureSpecificTimeSeriesData-methods.R
@@ -22,5 +22,5 @@ SDMXStructureSpecificTimeSeriesData <- function(xmlObj, namespaces){
 
 as.data.frame.SDMXStructureSpecificTimeSeriesData <- function(x, row.names=NULL, optional=FALSE,
                                                     labels = FALSE, ...){
-  return(as.data.frame.SDMXAllCompactData(x, "structurespecific", labels));
+  return(getSDMXAllCompactData(x, nsExpr = "structurespecific", labels = labels));
 }