R/utils.R

In lbartnik/repository: Object Repository for R

internals <- new.env()


crc32 <- function (x) digest::digest(x, 'crc32')

#' Generate and return an unique session id.
#'
#' Session id is stored via `options()` in order to preserve it regardless
#' of the changes in values coming as input, namely changes in the output
#' of `sessionInfo()`.
#'
#' @importFrom utils sessionInfo
#'
r_session_id <- function () {
  if (!is.null(simulation_meta_state$session_id)) {
    return(simulation_meta_state$session_id)
  }
  crc32(list(Sys.getpid(), sessionInfo()))
}

current_time <- function () {
  offset <- if (!is.null(simulation_meta_state$time)) simulation_meta_state$time else 0
  Sys.time() + offset
}