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 |