getRandomNames | R Documentation |
#' @export get_random_name = function(retry) left = left() right = right() name = paste0(left[sample(x = length(left), size = 1)],'_',right[sample(x = length(right), size = 1)]) if(name == 'boring_wozniak') get_random_name(retry) if(retry>0) name = paste0(name,sample(10,1)) return(name)
getRandomNames(n = 1, alliterate = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.