Taken from https://github.com/rstudio/cranwhales

adjectives.txt

able
abundant
adorable
agreeable
alive
ancient
angry
bad
beautiful
better
bewildered
big
bitter
black
blue
boiling
brave
breeze
brief
broad
broken
bumpy
calm
careful
chilly
chubby
clean
clever
clumsy
cold
colossal
cooing
cool
creepy
crooked
cuddly
curly
curved
damaged
damp
dead
deafening
deep
defeated
delicious
delightful
different
dirty
drab
dry
dusty
eager
early
easy
elegant
embarrassed
empty
faint
faithful
famous
fancy
fast
fat
few
fierce
filthy
first
flaky
flat
fluffy
freezing
fresh
full
gentle
gifted
gigantic
glamorous
good
gray
greasy
great
green
grumpy
handsome
happy
heavy
helpful
helpless
high
hissing
hollow
hot
huge
icy
immense
important
inexpensive
itchy
jealous
jolly
juicy
kind
large
last
late
lazy
light
little
lively
long
loose
loud
low
magnificent
mammoth
many
massive
melodic
melted
miniature
modern
mushy
mysterious
narrow
nervous
new
next
nice
noisy
numerous
nutritious
obedient
obnoxious
odd
old
orange
other
own
panicky
petite
plain
powerful
prickly
proud
public
puny
purple
purring
quaint
quick
quiet
rainy
rapid
raspy
red
relieved
repulsive
rich
right
rotten
round
salty
same
scary
scrawny
screeching
shallow
short
shy
silly
skinny
slow
small
sparkling
sparse
square
steep
sticky
straight
strong
substantial
sweet
swift
tall
tart
tasteless
teeny
tender
thankful
thoughtless
thundering
tiny
ugliest
uneven
uninterested
unsightly
uptight
vast
victorious
voiceless
warm
weak
wet
whispering
white
wide
witty
wooden
worried
wrong
yellow
young
yummy
zealous

animals.txt

aardvark
addax
alligator
alpaca
anteater
antelope
aoudad
ape
argali
armadillo
baboon
badger
basilisk
bat
bear
beaver
bee
beetle
bighorn
bird
bison
boar
budgerigar
buffalo
bull
bunny
burro
camel
canary
capybara
cat
chameleon
chamois
cheetah
chicken
chimpanzee
chinchilla
chipmunk
civet
coati
colt
cougar
cow
coyote
crab
crocodile
crow
deer
devil
dingo
doe
dog
donkey
dormouse
dromedary
dugong
eagle
eland
elephant
elk
ermine
ewe
fawn
ferret
finch
fish
fox
frog
gazelle
gemsbok
giraffe
gnu
goat
gopher
gorilla
guanaco
hamster
hare
hartebeest
hedgehog
hippopotamus
hog
horse
hyena
ibex
iguana
impala
jackal
jaguar
jerboa
kangaroo
kitten
koala
lamb
lemur
leopard
lion
lizard
llama
lovebird
lynx
mandrill
mare
marmoset
marten
meerkat
mink
mole
mongoose
monkey
monster
moose
mouse
mule
musk-ox
muskrat
mustang
newt
ocelot
octopus
okapi
opossum
orangutan
oryx
otter
owl
ox
panda
panther
parakeet
parrot
peccary
pig
platypus
pony
porcupine
porpoise
pronghorn
puma
puppy
quagga
rabbit
raccoon
ram
rat
reindeer
rhinoceros
rooster
salamander
seal
sheep
shrew
skunk
sloth
snake
springbok
squirrel
stallion
starfish
steer
tapir
tiger
toad
turtle
vicuna
walrus
warthog
waterbuck
weasel
whale
wildcat
wolf
wolverine
wombat
woodchuck
yak
zebra
zebu

random_name.R

random_name <- local({
  adjectives <- readLines("adjectives.txt")
  animals <- readLines("animals.txt")
  
  function(n = 1, date = Sys.Date()) {
    withr::with_seed(as.integer(date), {
      x <- sample(length(adjectives) * length(animals), n * 2, replace = TRUE)
      adj <- x[seq_along(x) %% 2 == 1] %% length(adjectives) + 1
      ani <- x[seq_along(x) %% 2 == 0] %% length(animals) + 1
      paste0(adjectives[adj], "_", animals[ani])
    })
  }
})