Browse Source

thou

master
boB Rudis 5 years ago
parent
commit
e1a2ba6139
No known key found for this signature in database GPG Key ID: 2A514A4997464560
  1. 2
      DESCRIPTION
  2. 8
      R/bismer.r
  3. 4
      README.Rmd
  4. 41
      README.md
  5. 5
      man/insult.Rd

2
DESCRIPTION

@ -1,7 +1,7 @@
Package: bismer
Type: Package
Title: Shakespearean Insult Generator
Version: 0.1.0
Version: 0.1.1
Date: 2017-03-24
Author: Bob Rudis (bob@rud.is)
Maintainer: Bob Rudis <bob@rud.is>

8
R/bismer.r

@ -32,9 +32,13 @@ structure(list(c1 = c("artless", "bawdy", "beslubbering", "bootless",
"c2", "c3")) -> insults
#' Generate a random Shakespearean insult
#'
#' @md
#' @param thou if `TRUE` then the insults are prefixed with "thou"
#' @export
insult <- function() {
sprintf("%s %s %s",
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)])

4
README.Rmd

@ -4,6 +4,8 @@ output: rmarkdown::github_document
`bismer` : Generate Shakespearean insults
Inspired by Dr. Vicky Forster (<a href="https://twitter.com/vickyyyf">@vickyyyf</a>) : <https://twitter.com/vickyyyf/status/846028898152431618>
The following functions are implemented:
- `insult`: Generate a Shakespearean insult
@ -27,6 +29,8 @@ library(bismer)
packageVersion("bismer")
purrr::walk(1:10, ~print(insult()))
purrr::walk(1:10, ~print(insult(thou=FALSE)))
```
### Test Results

41
README.md

@ -1,6 +1,8 @@
`bismer` : Generate Shakespearean insults
Inspired by Dr. Vicky Forster (<a href="https://twitter.com/vickyyyf">@vickyyyf</a>) : <https://twitter.com/vickyyyf/status/846028898152431618>
The following functions are implemented:
- `insult`: Generate a Shakespearean insult
@ -20,22 +22,37 @@ library(bismer)
packageVersion("bismer")
```
## [1] '0.1.0'
## [1] '0.1.1'
``` r
purrr::walk(1:10, ~print(insult()))
```
## [1] "venomed beetle-headed death-token"
## [1] "impertinent clapper-clawed mumble-news"
## [1] "lumpish tardy-gaited hugger-mugger"
## [1] "mangled fool-born whey-face"
## [1] "beslubbering reeling-ripe ratsbane"
## [1] "mangled tickle-brained foot-licker"
## [1] "puking dismal-dreaning strumpet"
## [1] "dankish half-faced pumpion"
## [1] "puny pox-marked clotpole"
## [1] "yeasty dismal-dreaning vassal"
## [1] "thou infectious beef-witted ooxoomb"
## [1] "thou puking tardy-gaited lewdster"
## [1] "thou qualling guts-griping foot-licker"
## [1] "thou venomed doghearted vassal"
## [1] "thou churlish ill-breeding foot-licker"
## [1] "thou craven clay-brained skainsmate"
## [1] "thou clouted full-gorged mumble-news"
## [1] "thou paunchy doghearted mammet"
## [1] "thou venomed dizzy-eyed malt-worm"
## [1] "thou roguish rough-hewn boar-pig"
``` r
purrr::walk(1:10, ~print(insult(thou=FALSE)))
```
## [1] "craven reeling-ripe gudgeon"
## [1] "impertinent milk-livered moldwarp"
## [1] "paunchy guts-griping moldwarp"
## [1] "spleeny guts-griping death-token"
## [1] "mangled fly-bitten bum-bailey"
## [1] "droning tickle-brained haggard"
## [1] "mangled clay-brained pignut"
## [1] "frothy pottle-deep horn-beast"
## [1] "fawning rump-fed scut"
## [1] "reeky hasty-witted haggard"
### Test Results
@ -46,7 +63,7 @@ library(testthat)
date()
```
## [1] "Sat Mar 25 22:17:57 2017"
## [1] "Sun Mar 26 12:52:57 2017"
``` r
test_dir("tests/")

5
man/insult.Rd

@ -4,7 +4,10 @@
\alias{insult}
\title{Generate a random Shakespearean insult}
\usage{
insult()
insult(thou = TRUE)
}
\arguments{
\item{thou}{if \code{TRUE} then the insults are prefixed with "thou"}
}
\description{
Generate a random Shakespearean insult

Loading…
Cancel
Save