Nothing
#' @name doi2bib
#' @title Downloading bibliogrphic references from DOIs
#'
#' @description
#' Retrieving bibliographic entries from Crossref by DOIs.
#' This function is a wrapper for [cr_cn()].
#'
#' @param x A character vector including DOI identifiers.
#' @param ... Further arguments (not yet used).
#'
#' @example examples/doi2bib.R
#'
#' @return
#' The output is an object of class [lib_df-class].
#'
#' @export
doi2bib <- function(x, ...) {
x <- do.call(c, cr_cn(dois = x))
# Break before last curly bracket
x <- gsub("}\\s*$", "\n}", x)
# Break after the first comma
x <- sub(",", ",\n", x, fixed = TRUE)
# Skip leading blanks
x <- trimws(x, which = "left")
# Replace and break single entries
for (i in standard_bib$field) {
x <- sub(paste0(i, "="), paste0("\n ", i, " = "), x, ignore.case = TRUE)
}
# Split into single lines
x <- do.call(c, str_split(x, "\n"))
# Convert to lib_df
return(read_bib(x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.