La Génération Aléatoire Des Chaînes

Je veux générer des chaînes de la manière suivante: ABCDE1234E, j'.e chaque chaîne contient 5 Personnages, 4 Chiffres, puis 1 Char.

J'ai trouvé une façon de créer ce en utilisant le code suivant.

library(random)
string_5 <- as.vector(randomStrings(n=5000, len=5, digits=FALSE, upperalpha=TRUE,
                        loweralpha=FALSE, unique=TRUE, check=TRUE))
number_4 <- as.vector(randomNumbers(n=5000, min=1111, max=9999, col=5, base=10, check=TRUE))
string_1 <- as.vector(randomStrings(n=5000, len=1, digits=FALSE, upperalpha=TRUE,
                         loweralpha=FALSE, unique=FALSE, check=TRUE))
PAN.Number <- paste(string_5,number_4,string_1,sep = "")

Mais ces fonctions prennent beaucoup de temps et le random bibliothèque a besoin d'une connexion réseau.

> system.time(string_5 <- as.vector(randomStrings(n=5000, len=5, digits=FALSE, upperalpha=TRUE,
+                                                 loweralpha=FALSE, unique=TRUE, check=TRUE)))
   user  system elapsed 
   0.07    0.00    3.18 

Est il une méthode que je pourrais essayer de réduire le temps d'exécution?
J'ai aussi essayé d'utiliser sample() mais je ne pouvais pas le comprendre.

OriginalL'auteur Nikhil Kumar | 2017-03-11