R/utils.R

In shortuuid: Generate and Translate Standard UUIDs

.rmdash <- function(x) {
    gsub("\\-", "", x)
}

.adddash <- function(x) {
    # Insert dashes at the correct positions
    formatted_uuid <- paste0(
        substr(x, 1, 8), "-",
        substr(x, 9, 12), "-",
        substr(x, 13, 16), "-",
        substr(x, 17, 20), "-",
        substr(x, 21, 32)
    )

    return(formatted_uuid)
}

#' check if object is of class uuid
#' @param x A character vector
#' @return logical indicating if the input is a valid UUID
#' @export
is.uuid <- function(x) {
    return(validate.uuid(x))
}

#' validate if a string is a uuid
#' @inheritParams is.uuid
#' @return logical indicating if the input is a valid UUID
#' @export
validate.uuid <- function(x) {
    rege <- "^[0-9a-f]{8}-[0-9a-f]{4}-[0-5][0-9a-f]{3}-[089ab][0-9a-f]{3}-[0-9a-f]{12}$"
    return(grepl(rege, x))
}

.ulength <- function(x) {
    length(unique(strsplit(x, "")[[1]]))
}

.is_alphabet <- function(x, len = 58) {
    return(.ulength(x) == len)
}


#' validate if character vector is base58 encoded
#' @inheritParams is.uuid
#' @param alphabet character vector representing an alphabet
#' @return logical vector indicating if each element is a valid base58 string
#' @export
is.base58 <- function(x, alphabet) {
    if (missing(alphabet)) {
        stop("alphabet missing with no default.")
    }
    if (!.is_alphabet(alphabet, 58)) {
        stop("alphabet does not contain 58 unique characters.")
    }
    return(is_valid_alphabet_cpp(x, alphabet))
}