R/utils.R

In D-Se/ergo: Ergonomic R utilities

#' Setting seed
#'
#' @inheritParams base::set.seed
#' @param normal_kind character string or NULL. If it is a character string,
#'  set the method of Normal generation. Use "default" to return to the R
#'  default. NULL makes no change.
#' @param sample_kind character string or NULL. If it is a character string,
#'  set the method of discrete uniform generation (used in sample, for
#'   instance). Use "default" to return to the R default. NULL makes no change.
#' @export
seed <- function(seed, kind = NULL, normal_kind = NULL, sample_kind = NULL) {
  set.seed(seed = seed, kind = kind,
           normal.kind = normal_kind, sample.kind = sample_kind)
}

#' Multiple argument library call
#'
#' @param ... packages to be attached.
#' @export
lib <- function(...) {
  invisible(
    lapply(
      vapply(substitute(...()), deparse, ""),
      require,
      character.only = T
    )
  )
}

#' Clean the global environment.
#'
#' @export
clean <- function() rm(list = ls(envir = globalenv()))