R/random_hash.R

In rDataPipeline: Functions to Interact with the 'FAIR Data Pipeline'

Defines functions random_hash

Documented in random_hash

#' random_hash
#'
#' Generates a random hash
#'
#' @export
#'
random_hash <- function() {
  tmp <- format(Sys.time(), "%Y%m%d%H%M%S%OS3") %>%
    as.numeric() * stats::runif(1, 1, 1000000)

  tmp %>%
    as.character() %>%
    openssl::sha1()
}

Try the rDataPipeline package in your browser