diff --git a/R/SDMXCompactData-methods.R b/R/SDMXCompactData-methods.R index ce6d557..e573dc5 100644 --- 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 index cae06f8..48e02a3 100644 --- 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 index dc8ecce..b18287b 100644 --- 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)); }