Browse Source

initial commit

master
boB Rudis 7 years ago
commit
a0755d3480
No known key found for this signature in database GPG Key ID: 2A514A4997464560
  1. 10
      .Rbuildignore
  2. 1
      .codecov.yml
  3. 8
      .gitignore
  4. 31
      .travis.yml
  5. 17
      DESCRIPTION
  6. 4
      NAMESPACE
  7. 2
      NEWS.md
  8. 7
      R/bismer-package.R
  9. 41
      R/bismer.r
  10. 42
      README.Rmd
  11. 58
      README.md
  12. 21
      bismer.Rproj
  13. 13
      man/bismer.Rd
  14. 11
      man/insult.Rd
  15. 2
      tests/test-all.R
  16. 6
      tests/testthat/test-bismer.R

10
.Rbuildignore

@ -0,0 +1,10 @@
^.*\.Rproj$
^\.Rproj\.user$
^\.travis\.yml$
^README\.*Rmd$
^README\.*html$
^NOTES\.*Rmd$
^NOTES\.*html$
^\.codecov\.yml$
^README_files$
^doc$

1
.codecov.yml

@ -0,0 +1 @@
comment: false

8
.gitignore

@ -0,0 +1,8 @@
.DS_Store
.Rproj.user
.Rhistory
.RData
.Rproj
src/*.o
src/*.so
src/*.dll

31
.travis.yml

@ -0,0 +1,31 @@
language: r
warnings_are_errors: true
sudo: required
cache: packages
r:
- oldrel
- release
- devel
apt_packages:
- libv8-dev
- xclip
env:
global:
- CRAN: http://cran.rstudio.com
after_success:
- Rscript -e 'covr::codecov()'
notifications:
email:
- bob@rud.is
irc:
channels:
- "104.236.112.222#builds"
nick: travisci

17
DESCRIPTION

@ -0,0 +1,17 @@
Package: bismer
Type: Package
Title: Shakespearean Insult Generator
Version: 0.1.0
Date: 2017-03-24
Author: Bob Rudis (bob@rud.is)
Maintainer: Bob Rudis <bob@rud.is>
Description: Shakespearean insult generator
URL: https://github.com/hrbrmstr/bismer
BugReports: https://github.com/hrbrmstr/bismer/issues
License: AGPL
Suggests:
testthat, covr
Depends:
R (>= 3.2.0)
Imports: tibble
RoxygenNote: 6.0.1

4
NAMESPACE

@ -0,0 +1,4 @@
# Generated by roxygen2: do not edit by hand
export(insult)
import(tibble)

2
NEWS.md

@ -0,0 +1,2 @@
0.1.0
* Initial release

7
R/bismer-package.R

@ -0,0 +1,7 @@
#' Generat a random Shakespearean insult
#'
#' @name bismer
#' @docType package
#' @author Bob Rudis (bob@@rud.is)
#' @import tibble
NULL

41
R/bismer.r

@ -0,0 +1,41 @@
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
#' @export
insult <- function() {
sprintf("%s %s %s",
insults$c1[sample(length(insults$c1), 1)],
insults$c2[sample(length(insults$c2), 1)],
insults$c3[sample(length(insults$c3), 1)])
}

42
README.Rmd

@ -0,0 +1,42 @@
---
output: rmarkdown::github_document
---
`bismer` : Generate Shakespearean insults
The following functions are implemented:
- `insult`: Generate a Shakespearean insult
### Installation
```{r eval=FALSE}
devtools::install_github("hrbrmstr/bismer")
```
```{r message=FALSE, warning=FALSE, error=FALSE, include=FALSE}
options(width=120)
```
### Usage
```{r message=FALSE, warning=FALSE, error=FALSE}
library(bismer)
# current verison
packageVersion("bismer")
purrr::walk(1:10, ~print(insult()))
```
### Test Results
```{r message=FALSE, warning=FALSE, error=FALSE}
library(bismer)
library(testthat)
date()
test_dir("tests/")
```

58
README.md

@ -0,0 +1,58 @@
`bismer` : Generate Shakespearean insults
The following functions are implemented:
- `insult`: Generate a Shakespearean insult
### Installation
``` r
devtools::install_github("hrbrmstr/bismer")
```
### Usage
``` r
library(bismer)
# current verison
packageVersion("bismer")
```
## [1] '0.1.0'
``` 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"
### Test Results
``` r
library(bismer)
library(testthat)
date()
```
## [1] "Sat Mar 25 22:17:57 2017"
``` r
test_dir("tests/")
```
## testthat results ========================================================================================================
## OK: 0 SKIPPED: 0 FAILED: 0
##
## DONE ===================================================================================================================

21
bismer.Rproj

@ -0,0 +1,21 @@
Version: 1.0
RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8
RnwWeave: Sweave
LaTeX: pdfLaTeX
StripTrailingWhitespace: Yes
BuildType: Package
PackageUseDevtools: Yes
PackageInstallArgs: --no-multiarch --with-keep.source
PackageBuildArgs: --resave-data
PackageRoxygenize: rd,collate,namespace

13
man/bismer.Rd

@ -0,0 +1,13 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/bismer-package.R
\docType{package}
\name{bismer}
\alias{bismer}
\alias{bismer-package}
\title{Generat a random Shakespearean insult}
\description{
Generat a random Shakespearean insult
}
\author{
Bob Rudis (bob@rud.is)
}

11
man/insult.Rd

@ -0,0 +1,11 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/bismer.r
\name{insult}
\alias{insult}
\title{Generate a random Shakespearean insult}
\usage{
insult()
}
\description{
Generate a random Shakespearean insult
}

2
tests/test-all.R

@ -0,0 +1,2 @@
library(testthat)
test_check("bismer")

6
tests/testthat/test-bismer.R

@ -0,0 +1,6 @@
context("basic functionality")
test_that("we can do something", {
#expect_that(some_function(), is_a("data.frame"))
})
Loading…
Cancel
Save