R/utils.R

In scribe: Command Argument Parsing

`%||%` <- function(x, y) {
  # slightly different here
  if (is_empty(x)) y else x
}

replace2 <- function(x, i, value) {
  x[[i]] <- value
  x
}

is_empty <- function(x) {
  if (is_arg(x)) {
    FALSE
  } else if (is.function(x)) {
    FALSE
  } else {
    is.null(x) || length(x) == 0L || !any(nzchar(x))
  }
}

to_string <- function(..., sep = " ") {
  lines <- list(...)
  lines <- unlist(lines)
  paste0(lines, collapse = sep)
}

print_lines <- function(..., sep = "\n", to = stdout()) {
  writeLines(to_string(..., sep = sep), con = to)
}

print_line <- function(...) {
  print_lines(..., sep = " ")
}

print_line0 <- function(...) {
  print_lines(..., sep = "")
}

is_intish <- function(x) {
  !is.null(x) && (is.numeric(x) | all(is.na(x))) && !isFALSE(x %% 1 == 0)
}

# allow for manual checking
exit <- function(force = !getOption("scribe.interactive", interactive())) {
  # nocov start
  if (force) {
    # testing in tests/testthat/scripts/help.R
    quit()
  }
  # nocov end

  invisible()
}

# nolint start: object_name_linter.
wapply <- function(x, FUN, ...) {
  FUN <- match.fun(FUN)
  # nolint end: object_name_linter.
  fun <- function(x, ...) isTRUE(FUN(x, ...))
  which(do.call(vapply, list(X = x, FUN = fun, FUN.VALUE = NA)))
}

print_scribe_version <- function() {
  version <- utils::packageVersion("scribe")
  print_line("{scribe} package version:", format(version))
  invisible(version)
}