Craft Beer Name Generator

Makes dumb fake beer names

pacman::p_load(dplyr)
source(here::here("generator.R"))

data.frame(n = 1:20) %>%
  group_by(n) %>%
  mutate(Beer = purrr::map_chr(n, ~generate_name(actual_beers = T))) %>%
  knitr::kable(format = "markdown")
n Beer
1 Cricketers Arms Pants Pale Lager
2 Goat Birds Sick's Shed Californicator German Pilsner
3 Hawkers Throwback Valley Saison/Farmhouse Ale
4 Philter's Killer Hops Sour
5 Usa's Ipa Ipa Windjammer Blonde Ale
6 2's Noisy Minor Admiral Rogers
7 Pact Moon Dog's Half Mast Hornet Ipa Ipa Pale Lager
8 Monkey's Green Coast Ipa Specialty Beer
9 Mornington's Beer Peach Melba Pavlova Cream Pale Kellerbier
10 Akasha's Ipa Irish Red Ale
11 Grave Coopers Bridge Road Capital's Killer Hops Double Sunset Kolsch Refreshing Ale International Pale Ale
12 Feral's Strong Pale English Brown Ale
13 Coconspirators Modus Operandi's Milk Stout Time Vanilla Malt Sparkling Ale
14 Pact Moon's Fifty Lashes Pacific Ale Red IPA
15 Hawkers Green Beacon Moon's Days Fat Specialty
16 Dainton's Killer Hops American Lager
17 3's Round 5 Beer American Pale ale
18 Colonial's Porter Evil Eye Tenant Noisy Gueuze
19 Wayward Shed Thirsty Crow's Lil American Brown Ale
20 Hop Nation James Squire Kaiju's Metal Disco Elsie Milk New England Rye IPA