R/idempotency.R

Defines functions uuid get_idempotency_token can_set_idempotency_token IDEMPOTENCY_RAND_FN

IDEMPOTENCY_TOKEN_FILL_TAG <- "idempotencyToken"
IDEMPOTENCY_RAND_FN <- function() sample(0:(2^8-1), 1)

# Return whether the idempotency token can be automatically set.
can_set_idempotency_token <- function(value) {
  return(length(value) == 0 && tag_get(value, IDEMPOTENCY_TOKEN_FILL_TAG) != "")
}

# Return a randomly-generated idempotency token.
get_idempotency_token <- function() {
  rand <- getOption("idempotency_rand_fn", default = IDEMPOTENCY_RAND_FN)
  b <- sapply(1:16, function(x) rand())
  return(uuid(b))
}

# Return a UUID version 4 based on the given `bytes`.
uuid <- function(bytes) {
  bytes[7] <- bitwAnd(bitwOr(bytes[7], 0x40), 0x4F)
  bytes[9] <- bitwAnd(bitwOr(bytes[9], 0x80), 0xBF)
  h <- sprintf("%02X", bytes)
  p <- function(x) paste(x, collapse = "")
  u <- sprintf(
    "%s-%s-%s-%s-%s",
    p(h[1:4]), p(h[5:6]), p(h[7:8]), p(h[9:10]), p(h[11:16])
  )
  return(u)
}

Try the paws.common package in your browser

Any scripts or data that you put into this service are public.

paws.common documentation built on March 26, 2022, 5:05 p.m.