R/data_masking.R

In burch-cm/fleetreportr: Tools for Generating FAA Fleet Reports

#' Make Dummy Tag
#'
#' @param count integer. The number of tags to create.
#' @param class character. A vector of tag prefixes from which to sample.
#' @param range integer vector of length 2. The start and ending tag numbers from which to sample.
#'
#' @return
#' @export
#'
#' @examples
#' make_dummy_tag(10, class = c("DOT", "GSA"), range = c(10000, 50000))
make_dummy_tag <- function(count = 1,
                           class = c("DOT", "GSA"),
                           range = c(0, 99999)) {
    class_vec <- sample(class, size = count, replace = TRUE)
    tag_vec <- sample(seq(range[1], range[2]), size = count, replace = FALSE)
    paste(class_vec, tag_vec, sep = "-")
}