recordr: R Provenance Tracking

RECORDR_DB_VERSION  <- "1.0.0"

# Define constants from the Prov Ontology (http://www.w3.org/TR/prov-dm)
RDF_NS                   <- "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
rdfType                  <- sprintf("%s%s", RDF_NS, "type")
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")

# Define constants from the ProvONE Ontology
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")

xsdString                <- sprintf("http://www.w3.org/2001/XMLSchema#string")

# TODO: This value should be read from the Session Management API when it is available
D1_CN_URL                <- "https://cn.dataone.org/cn/v1"
D1_CN_Resolve_URL        <- sprintf("%s/%s", D1_CN_URL, "resolve")
D1_View_URL              <- "https://search.dataone.org/#view"

# Define constants from Open Archives Initiative Object Reuse and Exchange
OREterms_URI <- "http://www.openarchives.org/ore/terms"
EML_211_FORMAT <- "eml://ecoinformatics.org/eml-2.1.1"

# User identity
ORCID_NS                 <- "http://www.orcid.org/ns/"
ORCID_TYPE               <- "http://www.orcid.org/ns/orcid"
ORCID_Base_URL           <- "http://orcid.org"
#orcidIdentifier          <- sprintf("%s/%s", ORCID_NS)
FOAF_NS                  <- "http://xmlns.com/foaf/0.1/"
FOAF_NAME                <- sprintf("%sname", FOAF_NS)
FOAF_PERSON              <- sprintf("%sPerson", FOAF_NS)
FOAF_ACCOUNT             <- sprintf("%sAccount", FOAF_NS)

DC_TERMS                  <- "http://purl.org/dc/terms/"
DC_IDENTIFIER             <- sprintf("%s/identifier", DC_TERMS)
DC_AGENT                  <- sprintf("%s/Agent", DC_TERMS)