R/utils.R

In ifo: Client for the Ifo Institute Time Series

# Source: <https://github.com/mlr-org/mlr3misc/blob/main/R/format_bib.R>
# by Michel Lang (copied here Feb 2024)
format_bib <- function(..., bibentries = NULL, envir = parent.frame()) {
  if (is.null(bibentries)) {
    bibentries <- get("bibentries", envir = envir)
  }
  stopifnot(anyDuplicated(names(bibentries)) == 0L)
  str <- vapply(list(...), \(entry) tools::toRd(bibentries[[entry]]), NA_character_)
  paste0(str, collapse = "\n\n")
}