Nothing
#' Generate UUIDs using the uuid package. This is simply a thin
#' wrapper around \code{uuid::UUIDgenerate} that matches the interface
#' in the rest of the ids package.
#'
#' @title Generate UUIDs
#'
#' @inheritParams ids
#'
#' @param drop_hyphens Drop the hyphens from the UUID?
#'
#' @param use_time Passed through to \code{UUIDgenerate} as \code{use.time}.
#'
#' @export
#'
#' @importFrom uuid UUIDgenerate
#' @author Rich FitzJohn
#' @examples
#' # Generate one id
#' uuid()
#'
#' # Or a bunch
#' uuid(10)
#'
#' # More in the style of random_id()
#' uuid(drop_hyphens = TRUE)
uuid <- function(n = 1, drop_hyphens = FALSE, use_time = NA) {
if (is.null(n)) {
force(drop_hyphens)
force(use_time)
function(n = 1) {
uuid(n, drop_hyphens, use_time)
}
} else {
res <- vapply(seq_len(n), function(i) uuid::UUIDgenerate(use_time),
character(1))
if (drop_hyphens) gsub("-", "", res, fixed = TRUE) else res
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.