You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

45 lines
2.4 KiB

structure(list(c1 = c("artless", "bawdy", "beslubbering", "bootless",
"churlish", "cockered", "clouted", "craven", "currish", "dankish",
"dissembling", "droning", "errant", "fawning", "fobbing", "froward",
"frothy", "gleeking", "goatish", "gorbellied", "impertinent",
"infectious", "jarring", "loggerheaded", "lumpish", "mannering",
"mangled", "mewling", "paunchy", "pribbling", "puking", "puny",
"qualling", "rank", "reeky", "roguish", "ruttish", "saucy", "spleeny",
"spongy", "surly", "tottering", "unmuzzled", "vain", "venomed",
"villainous", "warped", "wayward", "weedy", "yeasty"), c2 = c("base-court",
"bat-fouling", "beef-witted", "beetle-headed", "boil-brained",
"clapper-clawed", "clay-brained", "common-kissing", "crook-pared",
"dismal-dreaning", "dizzy-eyed", "doghearted", "dread-bolted",
"earth-vexing", "elf-skinned", "fat-kidneyed", "fen-sucked",
"flap-mouthed", "fly-bitten", "folly-fallen", "fool-born", "full-gorged",
"guts-griping", "half-faced", "hasty-witted", "hedge-born", "hell-hated",
"idle-headed", "ill-breeding", "ill-nurtured", "knotty-pated",
"milk-livered", "motley-minded", "onion-eyed", "plume-plucked",
"pottle-deep", "pox-marked", "reeling-ripe", "rough-hewn", "rude-growing",
"rump-fed", "shard-borne", "sheep-biting", "spur-galled", "swag-bellied",
"tardy-gaited", "tickle-brained", "toad-spotted", "unchin-snouted",
"weather-bitten"), c3 = c("apple-john", "baggage", "barnacle",
"bladder", "boar-pig", "bugbear", "bum-bailey", "canker-blossom",
"clack-dish", "clotpole", "ooxoomb", "codpiece", "death-token",
"dewberry", "flap-dragon", "flax-wench", "flirt-gill", "foot-licker",
"fustilarian", "giglet", "gudgeon", "haggard", "harpy", "hedge-pig",
"horn-beast", "hugger-mugger", "joithead", "lewdster", "lout",
"maggot-pie", "malt-worm", "mammet", "measle", "minnow", "miscreant",
"moldwarp", "mumble-news", "nut-hook", "pigeon-egg", "pignut",
"puttock", "pumpion", "ratsbane", "scut", "skainsmate", "strumpet",
"varlot", "vassal", "whey-face", "wagtail")), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -50L), .Names = c("c1",
"c2", "c3")) -> insults
#' Generate a random Shakespearean insult
#'
#' @md
#' @param thou if `TRUE` then the insults are prefixed with "thou"
#' @export
insult <- function(thou=TRUE) {
sprintf("%s%s %s %s",
if (thou) "thou " else "",
insults$c1[sample(length(insults$c1), 1)],
insults$c2[sample(length(insults$c2), 1)],
insults$c3[sample(length(insults$c3), 1)])
}