vectorized create_uid()

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)

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)