From a0755d34805fa040443c92bea6c2ce77d6ebefb6 Mon Sep 17 00:00:00 2001 From: boB Rudis Date: Sat, 25 Mar 2017 22:18:13 -0400 Subject: [PATCH] initial commit --- .Rbuildignore | 10 ++++++++ .codecov.yml | 1 + .gitignore | 8 ++++++ .travis.yml | 31 +++++++++++++++++++++++ DESCRIPTION | 17 +++++++++++++ NAMESPACE | 4 +++ NEWS.md | 2 ++ R/bismer-package.R | 7 ++++++ R/bismer.r | 41 +++++++++++++++++++++++++++++++ README.Rmd | 42 ++++++++++++++++++++++++++++++++ README.md | 58 ++++++++++++++++++++++++++++++++++++++++++++ bismer.Rproj | 21 ++++++++++++++++ man/bismer.Rd | 13 ++++++++++ man/insult.Rd | 11 +++++++++ tests/test-all.R | 2 ++ tests/testthat/test-bismer.R | 6 +++++ 16 files changed, 274 insertions(+) create mode 100644 .Rbuildignore create mode 100644 .codecov.yml create mode 100644 .gitignore create mode 100644 .travis.yml create mode 100644 DESCRIPTION create mode 100644 NAMESPACE create mode 100644 NEWS.md create mode 100644 R/bismer-package.R create mode 100644 R/bismer.r create mode 100644 README.Rmd create mode 100644 README.md create mode 100644 bismer.Rproj create mode 100644 man/bismer.Rd create mode 100644 man/insult.Rd create mode 100644 tests/test-all.R create mode 100644 tests/testthat/test-bismer.R diff --git a/.Rbuildignore b/.Rbuildignore new file mode 100644 index 0000000..1c60b19 --- /dev/null +++ b/.Rbuildignore @@ -0,0 +1,10 @@ +^.*\.Rproj$ +^\.Rproj\.user$ +^\.travis\.yml$ +^README\.*Rmd$ +^README\.*html$ +^NOTES\.*Rmd$ +^NOTES\.*html$ +^\.codecov\.yml$ +^README_files$ +^doc$ diff --git a/.codecov.yml b/.codecov.yml new file mode 100644 index 0000000..69cb760 --- /dev/null +++ b/.codecov.yml @@ -0,0 +1 @@ +comment: false diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..cce1f17 --- /dev/null +++ b/.gitignore @@ -0,0 +1,8 @@ +.DS_Store +.Rproj.user +.Rhistory +.RData +.Rproj +src/*.o +src/*.so +src/*.dll diff --git a/.travis.yml b/.travis.yml new file mode 100644 index 0000000..76d9586 --- /dev/null +++ b/.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 diff --git a/DESCRIPTION b/DESCRIPTION new file mode 100644 index 0000000..ce8ff3c --- /dev/null +++ b/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 +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 diff --git a/NAMESPACE b/NAMESPACE new file mode 100644 index 0000000..772f4a6 --- /dev/null +++ b/NAMESPACE @@ -0,0 +1,4 @@ +# Generated by roxygen2: do not edit by hand + +export(insult) +import(tibble) diff --git a/NEWS.md b/NEWS.md new file mode 100644 index 0000000..9b4679b --- /dev/null +++ b/NEWS.md @@ -0,0 +1,2 @@ +0.1.0 +* Initial release diff --git a/R/bismer-package.R b/R/bismer-package.R new file mode 100644 index 0000000..167287c --- /dev/null +++ b/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 diff --git a/R/bismer.r b/R/bismer.r new file mode 100644 index 0000000..5a8c689 --- /dev/null +++ b/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)]) +} \ No newline at end of file diff --git a/README.Rmd b/README.Rmd new file mode 100644 index 0000000..c686bb5 --- /dev/null +++ b/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/") +``` + diff --git a/README.md b/README.md new file mode 100644 index 0000000..021c4a8 --- /dev/null +++ b/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 =================================================================================================================== diff --git a/bismer.Rproj b/bismer.Rproj new file mode 100644 index 0000000..446d9e1 --- /dev/null +++ b/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 diff --git a/man/bismer.Rd b/man/bismer.Rd new file mode 100644 index 0000000..5a0d3a5 --- /dev/null +++ b/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) +} diff --git a/man/insult.Rd b/man/insult.Rd new file mode 100644 index 0000000..7b08b61 --- /dev/null +++ b/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 +} diff --git a/tests/test-all.R b/tests/test-all.R new file mode 100644 index 0000000..da42d4d --- /dev/null +++ b/tests/test-all.R @@ -0,0 +1,2 @@ +library(testthat) +test_check("bismer") diff --git a/tests/testthat/test-bismer.R b/tests/testthat/test-bismer.R new file mode 100644 index 0000000..ab6f62f --- /dev/null +++ b/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")) + +})