R/utils.R

In pmcharrison/suffixTree: Timestamped Suffix Trees (TSTs)

Defines functions is.scalar.character is.scalar.numeric is.scalar.logical is.scalar is.integerlike is.scalar.integerlike is.null.or wait_for_user

is.scalar.character <- function(x) {
  is.character(x) && is.scalar(x)
}

is.scalar.numeric <- function(x) {
  is.numeric(x) && is.scalar(x)
}

is.scalar.logical <- function(x) {
  is.logical(x) && is.scalar(x)
}

is.scalar <- function(x) {
  identical(length(x), 1L)
}

is.integerlike <- function(x) {
  all(round(x) == x)
}

is.scalar.integerlike <- function(x) {
  is.scalar(x) && is.integerlike(x)
}

is.null.or <- function(x, f) {
  is.null(x) || f(x)
}

wait_for_user <- function() {
  readline("Press enter to continue:")
  TRUE
}