Add Project

Adds the project metadata elements according to EML standards.

add_project(
  parent_element,
  funding_metadata,
  project_title = NULL,
  project_lead = NULL
)

Arguments

parent_element

A list representing the EML project or dataset.

funding_metadata

Add a named list or dataframe containing funding metadata: see create_project

project_title

Optionally add a project_title that is different from dataset title: see create_project

project_lead

Optionally add metadata describing a specific project personnel: see create_project

Value

The dataset list with project information appended.

Examples

project_lead <- dplyr::tibble(first_name = "Stacy", last_name = "Banet", email = "Stacy@aol.com" , 
                              role = "creator", organization = "USBR", orcid = NA)
funding_metadata <- list(funder_name = "USBR", funder_identifier = NA, award_number = "R14AC00096", 
                         award_title = "Salmonid Spawning and Rearing Habitat Restoration in the Sacramento River", 
                         award_url = NA)

dataset <- list() %>%
   add_title(list(title = "O.mykiss Habitat monitoring and contact point project", short_name = "O.mykiss monitoring")) %>%
   add_personnel(project_lead) %>%
   add_project(funding_metadata)
dataset
#> $title
#> [1] "O.mykiss Habitat monitoring and contact point project"
#> 
#> $shortName
#> [1] "O.mykiss monitoring"
#> 
#> $creator
#> $creator$individualName
#> $creator$individualName$givenName
#> [1] "Stacy"
#> 
#> $creator$individualName$surName
#> [1] "Banet"
#> 
#> 
#> $creator$electronicMailAddress
#> [1] "Stacy@aol.com"
#> 
#> $creator$organizationName
#> [1] "USBR"
#> 
#> 
#> $contact
#> $contact$individualName
#> $contact$individualName$givenName
#> [1] "Stacy"
#> 
#> $contact$individualName$surName
#> [1] "Banet"
#> 
#> 
#> $contact$electronicMailAddress
#> [1] "Stacy@aol.com"
#> 
#> $contact$organizationName
#> [1] "USBR"
#> 
#> 
#> $associatedParty
#> list()
#> 
#> $project
#> $project$title
#> [1] "O.mykiss Habitat monitoring and contact point project"
#> 
#> $project$personnel
#> $project$personnel$individualName
#> $project$personnel$individualName$givenName
#> [1] "Stacy"
#> 
#> $project$personnel$individualName$surName
#> [1] "Banet"
#> 
#> 
#> $project$personnel$electronicMailAddress
#> [1] "Stacy@aol.com"
#> 
#> $project$personnel$organizationName
#> [1] "USBR"
#> 
#> $project$personnel$role
#> [1] "Project Lead"
#> 
#> 
#> $project$award
#> $project$award[[1]]
#> $project$award[[1]]$funderName
#> [1] "United States Bureau of Reclamation"
#> 
#> $project$award[[1]]$funderIdentifier
#> [1] "https://www.wikidata.org/wiki/Q1010548"
#> 
#> $project$award[[1]]$title
#> [1] "Salmonid Spawning and Rearing Habitat Restoration in the Sacramento River"
#> 
#> $project$award[[1]]$awardNumber
#> [1] "R14AC00096"
#> 
#> $project$award[[1]]$awardUrl
#> [1] NA
#> 
#> 
#> 
#> 

dataset <- list() %>%
   add_project(funding_metadata, project_title = "Salmonid Habitat monitoring in the Central Valley", project_lead = project_lead)   
dataset
#> $project
#> $project$title
#> [1] "Salmonid Habitat monitoring in the Central Valley"
#> 
#> $project$personnel
#> $project$personnel$individualName
#> $project$personnel$individualName$givenName
#> [1] "Stacy"
#> 
#> $project$personnel$individualName$surName
#> [1] "Banet"
#> 
#> 
#> $project$personnel$electronicMailAddress
#> [1] "Stacy@aol.com"
#> 
#> $project$personnel$organizationName
#> [1] "USBR"
#> 
#> $project$personnel$role
#> [1] "Project Lead"
#> 
#> 
#> $project$award
#> $project$award[[1]]
#> $project$award[[1]]$funderName
#> [1] "United States Bureau of Reclamation"
#> 
#> $project$award[[1]]$funderIdentifier
#> [1] "https://www.wikidata.org/wiki/Q1010548"
#> 
#> $project$award[[1]]$title
#> [1] "Salmonid Spawning and Rearing Habitat Restoration in the Sacramento River"
#> 
#> $project$award[[1]]$awardNumber
#> [1] "R14AC00096"
#> 
#> $project$award[[1]]$awardUrl
#> [1] NA
#> 
#> 
#> 
#>