R/Constants.R

In datapack: A Flexible Container to Transport and Manipulate Data and Associated Resources

# This method of defining package wide constants is suggested in R help 
# by Duncun Murdoch, who has been one of the core R developers. Essentially these values are defined
# outside of a function so that they will be available to any function in the package,
# but are not exported using the NAMESPACE file so are not visible outside of the
# package.

# These constants are for the ProvONE data model that is described
# at https://purl.dataone.org/provone-v1-dev.
xsd_NS                   <- "http://www.w3.org/2001/XMLSchema#"
xsdString                <- sprintf("%s%s", xsd_NS, "string")
xsdDateTime              <- sprintf("%s%s", xsd_NS, "dateTime")
dc_NS                    <- "http://purl.org/dc/elements/1.1/"
dcterms_NS               <- "http://purl.org/dc/terms/"
DCTERMSidentifier        <- sprintf("%s%s", dcterms_NS, "identifier")
DCTERMSagent             <- sprintf("%s%s", dcterms_NS, "Agent")
DCTERMScreator           <- sprintf("%s%s", dcterms_NS, "creator")
DCTERMSmodified          <- sprintf("%s%s", dcterms_NS, "modified")
DCtitle                  <- sprintf("%s%s", dc_NS, "title")
RDF_NS                   <- "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
FOAF_NS                  <- "http://xmlns.com/foaf/0.1/"
foafName                 <- sprintf("%s%s", FOAF_NS, "name")
RDFtype                  <- sprintf("%s%s", RDF_NS, "type")
otherCreator             <- sprintf("%s%s", dc_NS, "creator")
# This is kept for backward compatibility
rdfType <- RDFtype
provNS                   <- "http://www.w3.org/ns/prov#"
provQualifiedAssociation <- sprintf("%s%s", provNS, "qualifiedAssociation")
provWasDerivedFrom       <- sprintf("%s%s", provNS, "wasDerivedFrom")
provHadPlan              <- sprintf("%s%s", provNS, "hadPlan")
provUsed                 <- sprintf("%s%s", provNS, "used")
provWasGeneratedBy       <- sprintf("%s%s", provNS, "wasGeneratedBy")
provAssociation          <- sprintf("%s%s", provNS, "Association")
provWasAssociatedWith    <- sprintf("%s%s", provNS, "wasAssociatedWith")
provAgent                <- sprintf("%s%s", provNS, "Agent")
provAtLocation           <- sprintf("%s%s", provNS, "atLocation")
provONE_NS               <- "http://purl.dataone.org/provone/2015/01/15/ontology#"
provONEprogram           <- sprintf("%s%s", provONE_NS, "Program")
provONEexecution         <- sprintf("%s%s", provONE_NS, "Execution")
provONEdata              <- sprintf("%s%s", provONE_NS, "Data")
provONEuser              <- sprintf("%s%s", provONE_NS, "User")
D1_CN_URL                <- "https://cn.dataone.org/cn/v2"
D1_CN_Resolve_URL        <- sprintf("%s/%s", D1_CN_URL, "resolve")
cito_NS                  <- "http://purl.org/spar/cito/"
citoDocuments            <-  sprintf("%s%s", cito_NS, "documents")
citoIsDocumentedBy       <-  sprintf("%s%s", cito_NS, "isDocumentedBy")

namespace_vector <- c(RDF_NS,
                      "http://www.w3.org/2001/XMLSchema#",
                      "http://www.w3.org/2000/01/rdf-schema#",
                      provNS,
                      provONE_NS,
                      "http://purl.org/dc/elements/1.1/",
                      "http://purl.org/dc/terms/",
                      "http://xmlns.com/foaf/0.1/",
                      "http://www.openarchives.org/ore/terms/",
                      "http://purl.org/spar/cito/",
                      "http://www.w3.org/ns/prov#")

prefixes <- c("rdf",
              "xsd",
              "rdfs",
              "prov",
              "provone",
              "dc",
              "dcterms",
              "foaf",
              "ore",
              "cito",
              "prov")

knownNamespaces <- data.frame(namespace = namespace_vector, prefix = prefixes, stringsAsFactors = FALSE)

# Open Archives Initiative Object Reuse and Exchange (OAI-ORE) terms
ORE_NS <- "http://www.openarchives.org/ore/terms/"
OREresourceMap <- "http://www.openarchives.org/ore/terms/ResourceMap"
OREdescribes <- "http://www.openarchives.org/ore/terms/describes"
OREisDescribedBy <- "http://www.openarchives.org/ore/terms/isDescribedBy"
aggregatedBy <- "http://www.openarchives.org/ore/terms/isAggregatedBy"
aggregates <- "http://www.openarchives.org/ore/terms/aggregates"
aggregationType <- "http://www.openarchives.org/ore/terms/Aggregation"