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.
2.0 KiB
2.0 KiB
bismer : Generate Shakespearean insults
Inspired by Dr. Vicky Forster (@vickyyyf) : https://twitter.com/vickyyyf/status/846028898152431618 and requested by Jeff Hollister (@jhollist).
The following functions are implemented:
insult: Generate a Shakespearean insult
Installation
devtools::install_github("hrbrmstr/bismer")
Usage
library(bismer)
# current verison
packageVersion("bismer")
## [1] '0.1.1'
purrr::walk(1:10, ~print(insult()))
## [1] "thou puny beetle-headed death-token"
## [1] "thou errant tickle-brained flap-dragon"
## [1] "thou rank ill-breeding whey-face"
## [1] "thou spleeny crook-pared pumpion"
## [1] "thou errant milk-livered hugger-mugger"
## [1] "thou tottering clay-brained haggard"
## [1] "thou mewling fat-kidneyed bladder"
## [1] "thou impertinent toad-spotted harpy"
## [1] "thou droning dread-bolted baggage"
## [1] "thou wayward unchin-snouted pumpion"
purrr::walk(1:10, ~print(insult(thou=FALSE)))
## [1] "warped knotty-pated giglet"
## [1] "warped tickle-brained flap-dragon"
## [1] "dissembling beetle-headed giglet"
## [1] "surly tardy-gaited miscreant"
## [1] "surly dread-bolted pignut"
## [1] "puking spur-galled boar-pig"
## [1] "fobbing clay-brained mumble-news"
## [1] "goatish dismal-dreaning codpiece"
## [1] "beslubbering base-court death-token"
## [1] "roguish boil-brained maggot-pie"
Test Results
library(bismer)
library(testthat)
date()
## [1] "Sun Mar 26 12:55:05 2017"
test_dir("tests/")
## testthat results ========================================================================================================
## OK: 0 SKIPPED: 0 FAILED: 0
##
## DONE ===================================================================================================================