exports

opensdmx · Dec 16, 2024 · f26eabf · f26eabf
1 parent 0509480
commit f26eabf
Show file tree

Hide file tree

Showing 51 changed files with 132 additions and 38 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -14,8 +14,52 @@ S3method(as.data.frame,SDMXServiceProviders)
 S3method(as.data.frame,SDMXStructureSpecificData)
 S3method(as.data.frame,SDMXStructureSpecificTimeSeriesData)
 S3method(as.data.frame,SDMXUtilityData)
+export(SDMX)
+export(SDMXAgency)
+export(SDMXAgencyScheme)
+export(SDMXAttribute)
+export(SDMXCode)
+export(SDMXCodelist)
+export(SDMXCodelists)
+export(SDMXCompactData)
+export(SDMXComponents)
+export(SDMXConcept)
+export(SDMXConceptScheme)
+export(SDMXConcepts)
+export(SDMXCrossSectionalData)
+export(SDMXData)
+export(SDMXDataFlow)
+export(SDMXDataFlows)
+export(SDMXDataStructure)
+export(SDMXDataStructureDefinition)
+export(SDMXDataStructures)
+export(SDMXDimension)
+export(SDMXDotStatRequestBuilder)
+export(SDMXFooter)
+export(SDMXFooterMessage)
+export(SDMXGenericData)
+export(SDMXHeader)
+export(SDMXMessageGroup)
+export(SDMXOrganisation)
+export(SDMXOrganisationSchemes)
+export(SDMXPrimaryMeasure)
+export(SDMXREST20RequestBuilder)
+export(SDMXREST21RequestBuilder)
+export(SDMXRequestBuilder)
+export(SDMXRequestParams)
+export(SDMXSchema)
+export(SDMXServiceProvider)
+export(SDMXServiceProviders)
+export(SDMXStructureSpecificData)
+export(SDMXStructureSpecificTimeSeriesData)
+export(SDMXStructureType)
+export(SDMXTimeDimension)
+export(SDMXType)
+export(SDMXUtilityData)
 export(getStructureType)
+export(readSDMX)
 export(rsdmxLogger)
+export(saveSDMX)
 import(R6)
 import(XML)
 import(httr)

diff --git a/R/SDMX-methods.R b/R/SDMX-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMX"
 #' 
 #' @seealso \link{readSDMX}
-
+#' @export
+#' 
 SDMX <- function(xmlObj, namespaces){
 	schema <- SDMXSchema(xmlObj, namespaces);
 	header <- SDMXHeader(xmlObj, namespaces);

diff --git a/R/SDMXAgency-methods.R b/R/SDMXAgency-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXAgency"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXAgency <- function(xmlObj, namespaces){
   obj <- organisation.SDMXOrganisation(xmlObj, namespaces, "SDMXAgency")
 }
diff --git a/R/SDMXAgencyScheme-methods.R b/R/SDMXAgencyScheme-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXAgencyScheme"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXAgencyScheme <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXAttribute-methods.R b/R/SDMXAttribute-methods.R
@@ -11,7 +11,8 @@
 #' @return an object of class "SDMXAttribute"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXAttribute <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXCode-methods.R b/R/SDMXCode-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXCode"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXCode <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXCodelist-methods.R b/R/SDMXCodelist-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXCodelist"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXCodelist <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXCodelists-methods.R b/R/SDMXCodelists-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXCodelists"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXCodelists <- function(xmlObj, namespaces){
   new("SDMXCodelists",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXCompactData-methods.R b/R/SDMXCompactData-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXCompactData"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXCompactData <- function(xmlObj, namespaces){
   new("SDMXCompactData",
       SDMXData(xmlObj, namespaces)

diff --git a/R/SDMXComponents-methods.R b/R/SDMXComponents-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXComponents"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXComponents <- function(xmlObj, namespaces){
   new("SDMXComponents",
       Dimensions = dimensions.SDMXComponents(xmlObj, namespaces),

diff --git a/R/SDMXConcept-methods.R b/R/SDMXConcept-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXConcept"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXConcept <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXConceptScheme-methods.R b/R/SDMXConceptScheme-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXConceptScheme"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXConceptScheme <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXConcepts-methods.R b/R/SDMXConcepts-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXConcepts"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXConcepts <- function(xmlObj, namespaces){
   new("SDMXConcepts",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXCrossSectionalData-methods.R b/R/SDMXCrossSectionalData-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXCrossSectionalData"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXCrossSectionalData <- function(xmlObj, namespaces){
   new("SDMXCrossSectionalData",
       SDMXData(xmlObj, namespaces)

diff --git a/R/SDMXData-methods.R b/R/SDMXData-methods.R
@@ -11,7 +11,8 @@
 #' @return an object of class "SDMXData"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXData <- function(xmlObj, namespaces){
 
   sdmxObj <- SDMX(xmlObj, namespaces)

diff --git a/R/SDMXDataFlow-methods.R b/R/SDMXDataFlow-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDataFlow"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDataFlow <- function(xmlObj, namespaces){
 
   messageNs <- findNamespace(namespaces, "message")

diff --git a/R/SDMXDataFlows-methods.R b/R/SDMXDataFlows-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDataFlows"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDataFlows <- function(xmlObj, namespaces){
   new("SDMXDataFlows",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXDataStructure-methods.R b/R/SDMXDataStructure-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDataStructure"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDataStructure <- function(xmlObj, namespaces){
 
   sdmxVersion <- version.SDMXSchema(xmlDoc(xmlObj), namespaces)

diff --git a/R/SDMXDataStructureDefinition-methods.R b/R/SDMXDataStructureDefinition-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDataStructureDefinition"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDataStructureDefinition <- function(xmlObj, namespaces){
   new("SDMXDataStructureDefinition",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXDataStructures-methods.R b/R/SDMXDataStructures-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDataStructures"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDataStructures <- function(xmlObj, namespaces){
   new("SDMXDataStructures",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXDimension-methods.R b/R/SDMXDimension-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXDimension"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXDimension <- function(xmlObj, namespaces){
 
   sdmxVersion <- version.SDMXSchema(xmlDoc(xmlObj), namespaces)

diff --git a/R/SDMXDotStatRequestBuilder-methods.R b/R/SDMXDotStatRequestBuilder-methods.R
@@ -24,6 +24,7 @@
 #' @param headers an object of class "list" that contains any additional headers for the request.
 #'
 #'@note Internal class
+#' @export
 #'  
 SDMXDotStatRequestBuilder <- function(regUrl, repoUrl, accessKey = NULL,
                                    unsupportedResources = list(), 

diff --git a/R/SDMXFooter-methods.R b/R/SDMXFooter-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXFooter"
 #' 
 #' @seealso \link{readSDMX}
-
+#' @export
+#' 
 SDMXFooter <- function(xmlObj, namespaces){
 
   messageList = list()

diff --git a/R/SDMXFooterMessage-methods.R b/R/SDMXFooterMessage-methods.R
@@ -9,7 +9,8 @@
 #' @return an object of class "SDMXFooterMessage"
 #' 
 #' @seealso   \link{SDMXFooter} \link{readSDMX}
-
+#' @export
+#' 
 SDMXFooterMessage <- function(xmlObj){
 
   #code

diff --git a/R/SDMXGenericData-methods.R b/R/SDMXGenericData-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXGenericData"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXGenericData <- function(xmlObj, namespaces){
   new("SDMXGenericData",
       SDMXData(xmlObj, namespaces)

diff --git a/R/SDMXHeader-methods.R b/R/SDMXHeader-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXHeader"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXHeader <- function(xmlObj, namespaces){
 
 	sdmxVersion <- version.SDMXSchema(xmlObj, namespaces)

diff --git a/R/SDMXMessageGroup-methods.R b/R/SDMXMessageGroup-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXMessageGroup"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXMessageGroup <- function(xmlObj, namespaces){
   new("SDMXMessageGroup",
       SDMXData(xmlObj, namespaces)

diff --git a/R/SDMXOrganisation-methods.R b/R/SDMXOrganisation-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXOrganisation"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXOrganisation <- function(xmlObj, namespaces){
   obj <- organisation.SDMXOrganisation(xmlObj, namespaces, "SDMXOrganisation")
 }

diff --git a/R/SDMXOrganisationSchemes-methods.R b/R/SDMXOrganisationSchemes-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "OrganisationSchemes"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXOrganisationSchemes <- function(xmlObj, namespaces){
   new("SDMXOrganisationSchemes",
       SDMX(xmlObj, namespaces),

diff --git a/R/SDMXPrimaryMeasure-methods.R b/R/SDMXPrimaryMeasure-methods.R
@@ -10,7 +10,8 @@
 #' @return an object of class "SDMXPrimaryMeasure"
 #' 
 #' @seealso \link{readSDMX}
-#'
+#' @export
+#' 
 SDMXPrimaryMeasure <- function(xmlObj, namespaces){
 
   sdmxVersion <- version.SDMXSchema(xmlDoc(xmlObj), namespaces)

diff --git a/R/SDMXREST20RequestBuilder-methods.R b/R/SDMXREST20RequestBuilder-methods.R
@@ -32,7 +32,8 @@
 #'   requestBuilder <- SDMXREST20RequestBuilder(
 #'     regUrl = "http://www.myorg/registry",
 #'     repoUrl = "http://www.myorg/repository", compliant = FALSE)
-#'
+#' @export
+#' 
 SDMXREST20RequestBuilder <- function(regUrl, repoUrl, accessKey = NULL, compliant,
                                      unsupportedResources = list(), 
                                      skipProviderId = FALSE, forceProviderId = FALSE,

diff --git a/R/SDMXREST21RequestBuilder-methods.R b/R/SDMXREST21RequestBuilder-methods.R
@@ -33,7 +33,8 @@
 #'     regUrl = "http://www.myorg/registry",
 #'     repoUrl = "http://www.myorg/repository",
 #'     compliant = TRUE)
-#'
+#' @export
+#' 
 SDMXREST21RequestBuilder <- function(regUrl, repoUrl, accessKey = NULL, compliant,
                                      unsupportedResources = list(), 
                                      skipProviderId = FALSE, forceProviderId = FALSE,

diff --git a/R/SDMXRequestBuilder-methods.R b/R/SDMXRequestBuilder-methods.R
@@ -65,7 +65,8 @@
 #'    repoUrl = "http://www.myorg.org/repository",
 #'    accessKey = NULL,
 #'    formatter = myFormatter, handler = myHandler, compliant = FALSE)
-#'
+#' @export
+#' 
 SDMXRequestBuilder <- function(regUrl, repoUrl, accessKey = NULL,
                                formatter, handler, compliant,
                                unsupportedResources = list(), headers = list()){

diff --git a/R/SDMXRequestParams-methods.R b/R/SDMXRequestParams-methods.R
@@ -30,7 +30,8 @@
 #'    providerId = "", agencyId ="", resource = "data", resourceId = "",
 #'    version = "", flowRef = "", key = NULL, start = NULL, end = NULL, compliant = FALSE
 #'   )
-#'
+#' @export
+#' 
 SDMXRequestParams <- function(regUrl, repoUrl, accessKey, providerId, agencyId, resource, resourceId, version = NULL,
                               flowRef, key = NULL, start = NULL, end = NULL, compliant){
   new("SDMXRequestParams",

diff --git a/R/SDMXSchema-methods.R b/R/SDMXSchema-methods.R
@@ -10,6 +10,7 @@
 #' @return an object of class "SDMXSchema"
 #' 
 #' @seealso \link{readSDMX}
+#' @export
 #' 
 
 SDMXSchema <- function(xmlObj, namespaces) {

diff --git a/R/SDMXServiceProvider-methods.R b/R/SDMXServiceProvider-methods.R
@@ -28,6 +28,8 @@
 #'   provider <- SDMXServiceProvider(agencyId = "MYORG", name = "My Organization",
 #'                                   builder = myBuilder)
 #'                                   
+#' @export
+#'                                   
 SDMXServiceProvider <- function(agencyId, name,
                                 scale = "international", country = as.character(NA),
                                 builder) {