Función para crear un ID aleatorio con las especificaciones de Carito

random_id.R

random_id <- function() {
    
    # Random string part
    r_string <- rawToChar(as.raw(sample(65:90, 3, replace=T)))
    
    # Random numeric part
    r_num <- toString(sample(0:9, 4, replace=T))
    r_num <- gsub(", ", "", r_num)
    
    return(paste0(r_string, r_num, sep=""))

}

seed_id <- function(seed) {
    
    # Para evitar que salgan resultados repetidos por probabilidad
    # Ej:
    # seed_id(1), seed_id(2), ...
    
    set.seed(seed)
    
    # Random string part
    r_string <- rawToChar(as.raw(sample(65:90, 3, replace=T)))
    
    # Random numeric part
    r_num <- toString(sample(0:9, 4, replace=T))
    r_num <- gsub(", ", "", r_num)
    
    return(paste0(r_string, r_num, sep=""))

}