# 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"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.