R/citeproc_utils.R

In ropensci/handlr: Convert Among Citation Formats

get_date_parts <- function(x = NULL) {
  if (is.null(x)) return(list('date-parts' = NULL))
  year <- substring(x, 1, 4)
  month <- substring(x, 6, 7)
  day <- substring(x, 9, 10)
  list('date-parts' = c(year, month, day))
}

get_date_from_date_parts <- function(x) {
  date_parts <- x$`date-parts`[[1]]
  year <- date_parts[[1]]
  month <- tryCatch(date_parts[[2]], error = function(e) e)
  if (inherits(month, "error")) month <- NULL
  day <- tryCatch(date_parts[[3]], error = function(e) e)
  if (inherits(day, "error")) day <- NULL
  get_date_from_parts(year, month, day)
}

get_date_from_parts <- function(year, month = NULL, day = NULL) {  
  paste0(Filter(function(z) z != "00", list(
    sprintf("%4.2d", as.numeric(year)),
    sprintf("%2.2d", as.numeric(month)),
    sprintf("%2.2d", as.numeric(day))
  )), collapse = "-")
}

from_citeproc <- function(element) {
  if (is.null(element)) return(NULL)
  lapply(element, function(w) {
    if (!is.null(w$literal)) {
      w$`@type` <- "Organization"
      w$name <- w$literal
    } else {
      w$`@type` <- "Person"
      w$name <- paste(w$given, w$family)
    }
    w$givenName <- w$given
    w$familyName <- w$family
    except(w, c("given", "family", "literal"))
  })
}

to_citeproc <- function(element) {
  lapply(element, function(a) {
    a$family <- a$familyName
    a$given <- a$givenName
    a$literal <- if (!is.null(a$familyName)) a$familyName else a$name
    ccp(a[c("type", "@type", "id", "@id", "name", "familyName", "givenName") %in% names(a)])
  })
}

# from https://docs.citationstyles.org/en/1.0.1/specification.html#appendix-iv-variables
csl_vars <- list(
  standard = c(
    "abstract",
    "annote",
    "archive",
    "archive_location",
    "archive-place",
    "authority",
    "call-number",
    "citation-label",
    "citation-number",
    "collection-title",
    "container-title",
    "container-title-short",
    "dimensions",
    "DOI",
    "event",
    "event-place",
    "first-reference-note-number",
    "genre",
    "ISBN",
    "ISSN",
    "jurisdiction",
    "keyword",
    "locator",
    "medium",
    "note",
    "original-publisher",
    "original-publisher-place",
    "original-title",
    "page",
    "page-first",
    "PMCID",
    "PMID",
    "publisher",
    "publisher-place",
    "references",
    "reviewed-title",
    "scale",
    "section",
    "source",
    "status",
    "title",
    "title-short",
    "URL",
    "version",
    "year-suffix"
  ),
  number = c(
    "chapter-number",
    "collection-number",
    "edition",
    "issue",
    "number",
    "number-of-pages",
    "number-of-volumes",
    "volume"
  ),
  date = c(
    "accessed",
    "container",
    "event-date",
    "issued",
    "original-date",
    "submitted"
  ),
  name = c(
    "author",
    "collection-editor",
    "composer",
    "container-author",
    "director",
    "editor",
    "editorial-director",
    "illustrator",
    "interviewer",
    "original-author",
    "recipient",
    "reviewed-author",
    "translator"
  )
)