Create contributors() function

[peterdesmet]

Cf. taxonomic() to retrieve the x$contributors as a data frame. This is useful for user to see who's currently listed. Longer term, we could either add a contributors()<- or update_contributors().

• Code is already in write_eml() and can be called there:

camtrapdp/R/write_eml.R

Lines 94 to 120 in 80e0674

	creators <-
	purrr::map_dfr(
	x$contributors,
	~ as.data.frame(., stringsAsFactors = FALSE)
	) %>%
	dplyr::filter(!.data$role %in% c("rightsHolder", "publisher")) %>%
	mutate_when_missing(path = character()) %>% # Guarantee path col
	dplyr::mutate(
	first_name = purrr::map_chr(
	.data$title,
	~ strsplit(.x, " ", fixed = TRUE)[[1]][1] # First string before space
	),
	last_name = purrr::map_chr(
	.data$title,
	~ sub("^\\S* ", "", .x) # Remove string up until first space
	),
	orcid = ifelse( # Move ORCID from path to separate column
	!is.na(regexpr(orcid_regex, .data$path)),
	regmatches(.data$path, regexpr(orcid_regex, .data$path)),
	NA_character_
	),
	path = ifelse(
	grepl(orcid_regex, .data$path),
	NA_character_,
	.data$path
	)
	)

• I would then also update create_eml_contributors() in utils to work with a df rather than a list.

[peterdesmet]

We could also add this function to frictionless-r, but I wonder if it is generic enough.