R/testthat-helpers.R

Defines functions .sample_name

#' @keywords internal
.sample_name <- function(n = 10) {
  name <- sample(x = c(LETTERS, letters, seq(9)), size = n, replace = TRUE)
  name <- paste(name, collapse = "")
  name <- make.names(name)
  return(name)
}
ellessenne/SCREAM documentation built on Dec. 20, 2021, 4:19 a.m.