From 9172dcaba0c3b634e063af35e7f029c77789f71b Mon Sep 17 00:00:00 2001
From: merlinoa <andy.merlino@tychobra.com>
Date: Wed, 6 Nov 2019 12:58:38 -0500
Subject: [PATCH] vectorized `create_uid()`

---
 NAMESPACE         |  1 +
 R/create_uid.R    | 30 +++++++++++++++++++++++++++---
 man/create_uid.Rd | 14 +++++++++++++-
 3 files changed, 41 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 238b7ed1..5c677d16 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -7,6 +7,7 @@ export(admin_module_ui)
 export(convert_timestamp)
 export(create_app_user)
 export(create_schema)
+export(create_uid)
 export(dashboard_module)
 export(dashboard_module_ui)
 export(firebase_dependencies)
diff --git a/R/create_uid.R b/R/create_uid.R
index db0452b1..e6dca7e9 100644
--- a/R/create_uid.R
+++ b/R/create_uid.R
@@ -2,12 +2,36 @@
 #'
 #' user for the uids in the database
 #'
+#' @param n length 1 integer > 0.  The number of uids to create.
+#'
 #' @return a character string uid
 #'
-#' @importFrom digest digest
 #' @importFrom stats runif
 #'
-create_uid <- function() {
+#' @export
+#'
+#' @examples
+#'
+#' # create a single uid
+#' create_uid()
+#'
+#' # create 10 uids
+#' create_uid(10)
+#'
+create_uid <- function(n = 1) {
+  stopifnot(length(n) == 1)
+  stopifnot(n > 0)
 
-  paste0("p", digest::digest(c(runif(1), Sys.time())))
+
+  paste0(
+    "p",
+    vdigest(runif(n))
+  )
 }
+
+#' vectorize the
+#'
+#' @importFrom digest digest
+#'
+#' @noRd
+vdigest <- Vectorize(digest::digest)
diff --git a/man/create_uid.Rd b/man/create_uid.Rd
index dc19c8c1..d59fb4e2 100644
--- a/man/create_uid.Rd
+++ b/man/create_uid.Rd
@@ -4,7 +4,10 @@
 \alias{create_uid}
 \title{create a uid}
 \usage{
-create_uid()
+create_uid(n = 1)
+}
+\arguments{
+\item{n}{length 1 integer > 0.  The number of uids to create.}
 }
 \value{
 a character string uid
@@ -12,3 +15,12 @@ a character string uid
 \description{
 user for the uids in the database
 }
+\examples{
+
+# create a single uid
+create_uid()
+
+# create 10 uids
+create_uid(10)
+
+}