R/generate_ids.R

In academy-of-behavior-change/dct: Decentralized Construct Taxonomies

#' @rdname generate_id
#' @export
generate_ids <- function(x,
                         stopOnIllegalChars = FALSE) {
  if (is.numeric(x)) {
    x <- purrr::map_chr(1:x,
                        function(x) return(paste(sample(letters, 4), collapse="")));
  }
  res <- generate_id(prefix="",
                     stopOnIllegalChars=stopOnIllegalChars);
  if (length(x) == 1) {
    return(res);
  }
  newId <- res;
  for (currentPrefix in x[-1]) {
    while (newId %in% res) {
      newId <- generate_id(prefix="",
                           stopOnIllegalChars=stopOnIllegalChars);
    }
    res <- c(res, newId);
  }
  return(paste0(x, res));
}

# generate_ids(c("attitude_experiential",
#                "attitude_instrumental",
#                "attitude",
#                "intention"));