R/helpers.R

In subugoe/biblids: Working with bibliometric identifiers

# copied from shinySurvey
#' Error out on unavailable optional pkgs
#' @inheritParams requireNamespace
#' @noRd
require_namespace2 <- function(x) {
  if (!requireNamespace(x, quietly = TRUE)) {
    rlang::abort(
      paste(
        x,
        "needed for this function to work.",
        "Please install it."
      )
    )
  }
}

#' Create path to example
#' Used in example tag and tests
#' @noRd
path_ex_file <- function(...) {
  args <- c("examples", list(...))
  rlang::exec(system.file, !!!args, package = "biblids", mustWork = TRUE)
}

#' Source path_ex_files
#'
#' @section Warning:
#' Can only be called if all objects used in sourced files are already loaded.
#' This is not a collation issue, but similar.
#' `source()` parses at load time, so objects must be available at call time.
#' Usually this will mean that it's best to place `source_pef()`
#' at the end of a source file to which it pertains (say, the examples).
#' If it uses objects from other files,
#' manual collation instructions via `#' @include foo.R` may be neeeded,
#' but that will quickly make the package unwieldy.
#' @noRd
source_pef <- function(...) {
  source(path_ex_file(...), local = TRUE)$value
}