R/utils.R

Defines functions load_into is.wholenumber

#' @noRd
#'
is.wholenumber <- function(x, tol = .Machine$double.eps^0.5)  {
  abs(x - round(x)) < tol
}

#' @noRd
#'
load_into <- function(path) {
  load(path)
  get(ls()[ls() != "path"])
}
okrebs/iotr documentation built on Aug. 22, 2023, 12:06 p.m.