boB Rudis
7 years ago
commit
a0755d3480
16 changed files with 274 additions and 0 deletions
@ -0,0 +1,10 @@ |
|||
^.*\.Rproj$ |
|||
^\.Rproj\.user$ |
|||
^\.travis\.yml$ |
|||
^README\.*Rmd$ |
|||
^README\.*html$ |
|||
^NOTES\.*Rmd$ |
|||
^NOTES\.*html$ |
|||
^\.codecov\.yml$ |
|||
^README_files$ |
|||
^doc$ |
@ -0,0 +1 @@ |
|||
comment: false |
@ -0,0 +1,8 @@ |
|||
.DS_Store |
|||
.Rproj.user |
|||
.Rhistory |
|||
.RData |
|||
.Rproj |
|||
src/*.o |
|||
src/*.so |
|||
src/*.dll |
@ -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 |
@ -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 |
@ -0,0 +1,4 @@ |
|||
# Generated by roxygen2: do not edit by hand |
|||
|
|||
export(insult) |
|||
import(tibble) |
@ -0,0 +1,2 @@ |
|||
0.1.0 |
|||
* Initial release |
@ -0,0 +1,7 @@ |
|||
#' Generat a random Shakespearean insult |
|||
#' |
|||
#' @name bismer |
|||
#' @docType package |
|||
#' @author Bob Rudis (bob@@rud.is) |
|||
#' @import tibble |
|||
NULL |
@ -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)]) |
|||
} |
@ -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/") |
|||
``` |
|||
|
@ -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 =================================================================================================================== |
@ -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 |
@ -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) |
|||
} |
@ -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 |
|||
} |
@ -0,0 +1,2 @@ |
|||
library(testthat) |
|||
test_check("bismer") |
@ -0,0 +1,6 @@ |
|||
context("basic functionality") |
|||
test_that("we can do something", { |
|||
|
|||
#expect_that(some_function(), is_a("data.frame")) |
|||
|
|||
}) |
Loading…
Reference in new issue