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
|
#' @name saveSDMX
#' @aliases saveSDMX
#' @title saveSDMX
#' @description \code{saveSDMX} is the function to save R SDMX object
#'
#' @usage saveSDMX(sdmxObj, file)
#'
#' @param sdmxObj an object of class \code{\link{SDMX-class}} to save
#' @param file a connection or the name of the file where the R object is saved to
#'
#' @examples
#' \donttest{
#' sdmx <- system.file("extdata","Example_Eurostat_2.0.xml", package="rsdmx")
#' sf <- tempfile(fileext = ".rda")
#' saveSDMX(sdmx, sf)
#' }
#'
#' @export
#'
#' @author Emmanuel Blondel, \email{emmanuel.blondel1@@gmail.com}
#'
saveSDMX <- function(sdmxObj, file){
saveRDS(sdmxObj, file, refhook = XML::xmlSerializeHook)
}
|
