R/utils.R

In gmeans: G-means Clustering

`%||%` <- function(x, y) if (!is.null(x)) x else y

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

cite_bib <- function(..., bibentries = NULL, envir = parent.frame()) {
  if (is.null(bibentries)) {
    bibentries <- get("bibentries", envir = envir)
  }
  stopifnot(is.list(bibentries), anyDuplicated(names(bibentries)) == 0L)

  str <- vapply(
    list(...),
    function(entry) {
      x <- bibentries[[entry]]
      sprintf("%s (%s)", x$author[[1L]]$family %||% x$author[[1L]], x$year)
    },
    NA_character_
  )

  if (length(str) >= 3L) {
    str <- c(toString(utils::head(str, -1L)), utils::tail(str, 1L))
  }

  paste0(str, collapse = " and ")
}