R/bib_actions.R

In kvasilopoulos/econdata: Curated List of Economic Datasets

valid_key <- function(key) {
  keys <- econdata::papers[, "BIBTEXKEY", drop = TRUE]
  if (!(key %in% keys)) {
    stop(paste0(key, " is not a valid key"), call. = FALSE)
  }
}

bib_pull <- function(key, tag) {
  valid_key(key)
  key_set <- subset(econdata::papers, BIBTEXKEY == key)
  tryCatch(
    key_set[, tag, drop = TRUE],
    error = function(e) NULL
  )
}

# Functions used to roxygenise --------------------------------------------

bib_title <- function(key) {
  bib_pull(key, "TITLE")
}

bib_authoryear <- function(key) {
  bib_pull(key, "AUTHORYEAR")
}

bib_ref <- function(key) {
  bib_pull(key, "REFERENCE")
}


# bib_abstract <- function(key) {
#   bib_pull(key, "ABSTRACT")
# }
#
# bib_journal <- function(key) {
#   bib_pull(key, "JOURNAL")
# }
#
# bib_author <- function(key) {
#   unlist(bib_pull(key, "AUTHOR"))
# }
#
# bib_year <- function(key) {
#   bib_pull(key, "YEAR")
# }
#
# bib_doi <- function(key) {
#   bib_pull(key, "DOI")}
#
# bib_url <- function(key) {
#   bib_pull(key, "URL")
# }


# style_apa <- function(key) {
#   author <- paste(bib_author(key), collapse = " ")
#   year <- bib_year(key)
#   title <- bib_title(key)
#   journal <- bib_journal(key)
#   paste(author, year, title, journal)
#
# }