#' rName
#'
#' Generate names composed of random characters and numbers. There is no guarantee names won't collide, but they are guaranteed to start with a letter. The ratio of letters to LETTERS to numbers should be pretty close to even (26:26:30).
#'
#' @param char The number of characters, not including the optional extension (numeric).
#' @param ext The optional extension, starting with a dot e.g. '.txt' (character).
#' @return A length 1 character vector that can be used to name HTML elements or files.
#' @author Jon Katz
#' @note Kind of similar to \code{basename(tempfile("",""))}, but less rigorous and not hex based.
#' @examples
#' rName()
#' @keywords manip
#' @export
rName <- function(char=16, ext=NULL) {
if(!char > 1) stop('Minimum of 2 characters required.')
paste0(sample(c(letters,LETTERS), 1), paste0(sample(c(letters,LETTERS,rep(0:9,3)), char-1, replace=TRUE),collapse=""), ext)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.