1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#' @name SDMXUtilityData
#' @rdname SDMXUtilityData
#' @aliases SDMXUtilityData,SDMXUtilityData-method
#'
#' @usage
#' SDMXUtilityData(xmlObj, namespaces)
#'
#' @param xmlObj object of class "XMLInternalDocument derived from XML package
#' @param namespaces object of class "data.frame" given the list of namespace URIs
#' @return an object of class "SDMXUtilityData"
#'
#' @seealso \link{readSDMX}
#' @export
#'
SDMXUtilityData <- function(xmlObj, namespaces){
new("SDMXUtilityData",
SDMXData(xmlObj, namespaces)
)
}
#methods
#=======
#'@export
as.data.frame.SDMXUtilityData <- function(x, row.names=NULL, optional=FALSE,
labels = FALSE, ...){
return(as.data.frame.SDMXCompactData(x, labels))
}
|
