From 3da7520164acaa88e68d142921465c2cb877d56c Mon Sep 17 00:00:00 2001 From: Juan Pablo Date: Thu, 1 Aug 2024 15:45:05 -0400 Subject: [PATCH] unverify update to README file unverfiy update to README# Please enter the commit message for your changes. Lines starting --- .Rbuildignore | 4 ++ .gitignore | 1 + DESCRIPTION | 11 +-- NAMESPACE | 1 + NEWS.md | 4 +- R/bard.bits.R | 95 ++++++++++++++++++++++-- R/data.R | 99 +++++++++++++++++++++++--- R/demotivate.R | 2 +- R/despair_message.R | 2 + R/motivate.R | 2 +- R/set.char.seed.R | 13 ++-- R/xxx.R | 4 +- README.Rmd | 54 ++++++++++++++ _pkgdown.yml | 25 +++++++ data/dsm_5.rda | Bin 0 -> 997 bytes data/shake_adjectives.rda | Bin 729 -> 698 bytes data/shake_animals.rda | Bin 934 -> 889 bytes data/shake_chars.rda | Bin 0 -> 971 bytes data/shake_clrs.rda | Bin 4398 -> 1598 bytes data/shake_jobs.rda | Bin 746 -> 714 bytes data/shake_nouns.rda | Bin 672 -> 0 bytes data/shake_things.rda | Bin 811 -> 779 bytes man/bard.bits.Rd | 49 +++++++++++++ man/dsm_5.Rd | 19 +++++ man/family.Rd | 2 +- man/life.Rd | 2 +- man/lit.Rd | 2 +- man/modern.Rd | 2 +- man/psych.Rd | 2 +- man/rednecks.Rd | 2 +- man/religion.Rd | 2 +- man/science.Rd | 2 +- man/set.char.seed.Rd | 3 +- man/shake_adjectives.Rd | 19 +++++ man/shake_animals.Rd | 19 +++++ man/shake_chars.Rd | 19 +++++ man/shake_clrs.Rd | 19 +++++ man/shake_jobs.Rd | 19 +++++ man/shake_things.Rd | 19 +++++ man/stoic.Rd | 2 +- man/tv.Rd | 2 +- man/work.Rd | 2 +- shake_chars.rda | Bin 1010 -> 0 bytes tests/testthat.R | 12 ++++ tests/testthat/test-bard.bits.R | 5 ++ tests/testthat/test-demotivate.R | 5 ++ tests/testthat/test-despair_message.R | 5 ++ tests/testthat/test-motivate.R | 5 ++ tests/testthat/test-set.char.seed.R | 5 ++ 49 files changed, 518 insertions(+), 43 deletions(-) create mode 100644 README.Rmd create mode 100644 _pkgdown.yml create mode 100644 data/dsm_5.rda create mode 100644 data/shake_chars.rda delete mode 100644 data/shake_nouns.rda create mode 100644 man/bard.bits.Rd create mode 100644 man/dsm_5.Rd create mode 100644 man/shake_adjectives.Rd create mode 100644 man/shake_animals.Rd create mode 100644 man/shake_chars.Rd create mode 100644 man/shake_clrs.Rd create mode 100644 man/shake_jobs.Rd create mode 100644 man/shake_things.Rd delete mode 100644 shake_chars.rda create mode 100644 tests/testthat.R create mode 100644 tests/testthat/test-bard.bits.R create mode 100644 tests/testthat/test-demotivate.R create mode 100644 tests/testthat/test-despair_message.R create mode 100644 tests/testthat/test-motivate.R create mode 100644 tests/testthat/test-set.char.seed.R diff --git a/.Rbuildignore b/.Rbuildignore index 0b0a081..104c1a7 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -1,3 +1,7 @@ ^despair\.Rproj$ ^\.Rproj\.user$ ^LICENSE\.md$ +^README\.Rmd$ +^_pkgdown\.yml$ +^docs$ +^pkgdown$ diff --git a/.gitignore b/.gitignore index 7c794aa..457525e 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ .httr-oauth .DS_Store .quarto +docs diff --git a/DESCRIPTION b/DESCRIPTION index 15bbc25..87497e2 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,13 +1,13 @@ Package: despair -Title: What the Package Does (One Line, Title Case) -Version: 0.0.0.9000 +Title: (de)Motivational quotes and Shakespearian bard–bits for use in personal projects +Version: 0.1.0 Authors@R: person("JP", "Monteagudo", email = "jpmonteagudo2014@gmail.com", role = c("aut", "cre"), - comment = c(ORCID = "0009-0003-6465-6658")) + comment = c(ORCID = "0009-0003-6465-6658")) Maintainer: JP Monteagudo -Description: This generates demotivation and motivational quotes that a user can consider for their personal projects, to mitigate the unavoidable sadness after long hours of coding, or to share with friends. The user can also supply a numeric or character seed to ensure reproducible results. +Description: This generates (de)motivational quotes and Shakespearian word combintations (bard–bits) that a user can consider for their personal projects, to mitigate the unavoidable sadness after long hours of coding, or to share with friends. The user can also supply a numeric or character seed to ensure reproducible results. License: GPL (>= 3) Encoding: UTF-8 Roxygen: list(markdown = TRUE) @@ -15,3 +15,6 @@ RoxygenNote: 7.3.2 LazyData: true URL: https://github.com/jpmonteagudo28/despair BugReports: https://github.com/jpmonteagudo28/despair/issues +Suggests: + testthat (>= 3.0.0) +Config/testthat/edition: 3 diff --git a/NAMESPACE b/NAMESPACE index 5996c0d..8a3ea4e 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,5 +1,6 @@ # Generated by roxygen2: do not edit by hand +export(bard.bits) export(demotivate) export(despair.message) export(motivate) diff --git a/NEWS.md b/NEWS.md index 0ce63fd..6270875 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,3 @@ -# despair (development version) +# despair 0.1.0 -* Initial CRAN submission. +* Initial development release diff --git a/R/bard.bits.R b/R/bard.bits.R index dc53b8a..68ab4d8 100644 --- a/R/bard.bits.R +++ b/R/bard.bits.R @@ -1,7 +1,48 @@ -bard.bits <- functions(cat, +#' Generate unique bard bits using Shakespeare's work and DSM-5 adjectives +#' +#' @description +#' \code{bard.bits()} generates bard bits using Shakespeare's works and the DSM-5 to use in personal projects. The term bard–bits comes from Shakespeare's title +#' 'The Bard of Avon' and the bits ( Shakespeare's characters, places, professions) used to come up with coherent combinations. +#' +#' @details +#' When the category is 'any' (the default), the function combines Shakespeare's adjectives, +#' DSM-5 adjectives, colors and the characters, jobs, animals and things data frames +#' to then sample one adjective and one noun from each of the two combinations. +#' +#' When the category is 'alliterate', the function combines the adjectives and colors +#' data frames and the animals and characters data frame. After an adjective is selected, +#' the first letter will be used to match against a noun. +#' +#' When the category is 'character', the function will derive a bard bit from a data frame of Shakespeare's +#' characters and the adjectives data frame. +#' +#' When the category is 'jobs', the function will derive a bard bit from the adjectives and colors data frame +#' and sample one value from the Shakespeare's jobs data frame. +#' +#' When the category is 'dsm_5', the function will derive a bard bit from the combined jobs, +#' characters, animals and the DSM-5 adjectives data frame. +#' +#' @param cat a category to be used as bard–bit. Defaults to "any", but "character", +#' "jobs","alliterate", "dsm_5" are available. +#' @param seed an optional numeric or character seed for reproducible results. +#' +#' @return \code{bard.bits()} takes a category and an optional numeric or character seed +#' to produce a bard–bit. +#' @export +#' +#' @author JP Monteagudo +#' +#' @examples +#' bard.bits("any") +#' bard.bits("dsm_5", seed = 1234) +#' bard.bits("jobs", seed = "horrid antonio") +#' +bard.bits <- function(cat, seed = NULL){ + valid_cats <- c("any","character", - "jobs","alliterate") + "jobs","alliterate", + "dsm_5") cat <- match.arg(cat, valid_cats, @@ -18,13 +59,55 @@ bard.bits <- functions(cat, set.seed(seed) } - if(cat == "any"){} + if(cat == "any"){ + adjs <- rbind(shake_adjectives,shake_clrs, dsm_5) + one_adj <- sample(unique(adjs$values),1) + + nouns <- rbind(shake_animals,shake_jobs,shake_things,shake_chars) + one_noun <- sample(unique(nouns$values),1) + + my_bit <- paste(one_adj,one_noun) + } + + if(cat == "character"){ + one_adj <- sample(shake_adjectives$values,1) + + one_noun <- sample(shake_chars$values,1) + + my_bit <- paste(one_adj, one_noun) + } + + if(cat == "jobs"){ + adjs <- rbind(shake_adjectives,shake_clrs) + one_adj <- sample(unique(adjs$values),1) - if(cat = "character"){} + one_noun <- sample(shake_jobs$values,1) - if(cat = "jobs"){} + my_bit<- paste(one_adj,one_noun) + } + + if(cat == "alliterate"){ + adjs <- rbind(shake_adjectives, shake_clrs) + adjs <- subset(adjs, sapply(strsplit(adjs$values, " "), length) == 1) + + nouns <-rbind(shake_animals, shake_chars) + one_noun <- sample(unique(nouns$values),1) + one_st <- substring(one_noun,1,1) - if(cat = "alliterate"){} + letter_match <- subset(adjs,substr(adjs$values,1,1)== one_st) + one_adj <- sample(letter_match$values,1) + + my_bit <- paste(one_adj,one_noun) + } + + if(cat == "dsm_5"){ + nouns <- rbind(shake_jobs,shake_chars,shake_animals) + one_noun <- sample(unique(nouns$values),1) + + one_adj <- sample(dsm_5$values,1) + + my_bit <- paste(one_adj,one_noun) + } return(my_bit) } diff --git a/R/data.R b/R/data.R index 79d8255..30e0cd4 100644 --- a/R/data.R +++ b/R/data.R @@ -4,7 +4,7 @@ #' #' @format a data frame with 13 observations and1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "family" @@ -15,7 +15,7 @@ #' #' @format a data frame with 27 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "life" @@ -26,7 +26,7 @@ #' #' @format a data frame with 22 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "lit" @@ -36,7 +36,7 @@ #' This is a data frame of modern and contemporary historical and pop-culture icons used in \code{motivate()} #' @format a data frame of with 40 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "modern" @@ -47,7 +47,7 @@ #' #' @format a data frame with 34 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "psych" @@ -58,7 +58,7 @@ #' #' @format a data frame with 21 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "rednecks" @@ -69,7 +69,7 @@ #' #'@format a data frame with 45 observations and 1 column. #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "religion" @@ -80,7 +80,7 @@ #' #' @format a data frame of 27 observations and 1 column. #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "science" @@ -91,7 +91,7 @@ #' #' @format a data frame with 32 observations and 1 column. #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "stoic" @@ -102,7 +102,7 @@ #' #' @format a data frame with 23 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "tv" @@ -113,7 +113,84 @@ #' #' @format a data frame with 31 observations and 1 column #' \describe{ -#' \item{\code{value}}{a character vector} +#' \item{\code{values}}{a character vector} #' } #' "work" + +#' A data frame of Shakespeare's characters +#' +#' This is a data frame of Shakespeare's characters +#' +#' @format a data frame with 137 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_chars" + +#' A data frame of Shakespeare's adjectives +#' +#' This is a data frame of adjectives used in Shakespeare's works. +#' +#' @format a data frame with 100 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_adjectives" + +#' A data frame of Shakespeare's animals +#' +#' This is a data frame of animals used in Shakespeare's works +#' +#' @format a data frame with 150 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_animals" + +#' A data frame of Shakespeare and unusual colors +#' +#' This is a data frame of colors used in Shakespeare's work and other unusual colors +#' +#' @format a data frame with 300 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_clrs" + +#' A data frame of Shakespeare's jobs +#' +#' This is a data frame of professions used in Shakespeare's works. +#' +#' @format a data frame with 103 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_jobs" + +#' A data frame of Shakespeare's objects +#' +#' This is a data frame of objects used in Shakespeare's works. +#' +#' @format a data frame with 150 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"shake_things" + +#' A data frame of DSM-5 adjectives +#' +#' This is a data frame of adjectives used in the DSM-5 to describe mental states +#' +#' @format a data frame with 150 observations and 1 column +#' \describe{ +#' \item{\code{values}}{a character vector} +#' } +#' +"dsm_5" diff --git a/R/demotivate.R b/R/demotivate.R index 5b98130..d666078 100644 --- a/R/demotivate.R +++ b/R/demotivate.R @@ -71,5 +71,5 @@ demotivate <- function(cat = "any", if(cat == "family"){ my_quote <- sample(family$values,1) } - return(cat(my_quote)) + return(my_quote) } diff --git a/R/despair_message.R b/R/despair_message.R index 40e86ff..55b24f1 100644 --- a/R/despair_message.R +++ b/R/despair_message.R @@ -1,3 +1,5 @@ +# Code for this function modified from package `codename` by Steven Miller under license GPL -2. + #' Display package version for \pkg{despair} #' #' @description \code{despair.message()} produces a message about the package version diff --git a/R/motivate.R b/R/motivate.R index e0adfbd..c7011e2 100644 --- a/R/motivate.R +++ b/R/motivate.R @@ -71,5 +71,5 @@ motivate <- function(cat = "any", if(cat == "lit"){ my_quote <- sample(lit$values,1) } - return(cat(my_quote)) + return(my_quote) } diff --git a/R/set.char.seed.R b/R/set.char.seed.R index d089b8d..09d8977 100644 --- a/R/set.char.seed.R +++ b/R/set.char.seed.R @@ -1,3 +1,5 @@ +# Code for this function modified from package `codename` by Steven Miller under license GPL -2. + #' Convert any character vector to an integer for setting a reproducible seed #' #' @description @@ -9,7 +11,7 @@ #' numbers are concatenated and divided by 2^39 - 1, and the remainder of this division #' is used as the numeric reproducible seed. #' -#' If you get a warning about 'loss of accuracy", consider using a more succint character +#' If you get a warning about 'loss of accuracy", consider using a more succinct character #' vector, otherwise you may get a seed of 0. #' #' @param char a character vector @@ -18,6 +20,8 @@ #' #' @author JP Monteagudo #' +#' @keywords internals +#' #' #' @examples #' set.char.seed("The Sticky Chicken") @@ -30,14 +34,13 @@ set.char.seed <- function(char) { names(temp) <- c(LETTERS, letters, 0:9) char <- gsub("[^0-9a-zA-Z]","",as.character(char)) - char_split <- temp[ strsplit(char,'')[[1]] ] - char_split + split_it <- temp[ strsplit(char,'')[[1]] ] + split_it - num_seed <- as.numeric(paste(char_split, collapse="")) + num_seed <- as.numeric(paste(split_it, collapse="")) num_seed seed <- as.integer( num_seed %% (2^31-1) ) return(seed) - } diff --git a/R/xxx.R b/R/xxx.R index 4b1890a..0c06d08 100644 --- a/R/xxx.R +++ b/R/xxx.R @@ -6,5 +6,7 @@ if(getRversion() >= "2.15.1") # underlying data used for behind-the-scenes handsomeness c("family", "life", "lit", "modern", "psych", "rednecks", "religion", "science", "stoic", - "tv","work", "shake_nouns","shake_adjectives","shake_animals") + "tv","work","shake_adjectives","shake_animals", + "shake_things","shake_jobs","shake_chars","shake_clrs", + "dsm_5") ) diff --git a/README.Rmd b/README.Rmd new file mode 100644 index 0000000..c6cd381 --- /dev/null +++ b/README.Rmd @@ -0,0 +1,54 @@ +--- +output: github_document +--- + + + +```{r, include = FALSE} +knitr::opts_chunk$set( + collapse = TRUE, + comment = "#>", + fig.path = "man/figures/README-", + out.width = "100%" +) +``` + +# despair + + + + +The goal of despair is to ... + +## Installation + +You can install the development version of despair like so: + +``` r +# FILL THIS IN! HOW CAN PEOPLE INSTALL YOUR DEV PACKAGE? +``` + +## Example + +This is a basic example which shows you how to solve a common problem: + +```{r example} +library(despair) +## basic example code +``` + +What is special about using `README.Rmd` instead of just `README.md`? You can include R chunks like so: + +```{r cars} +summary(cars) +``` + +You'll still need to render `README.Rmd` regularly, to keep `README.md` up-to-date. `devtools::build_readme()` is handy for this. + +You can also embed plots, for example: + +```{r pressure, echo = FALSE} +plot(pressure) +``` + +In that case, don't forget to commit and push the resulting figure files, so they display on GitHub and CRAN. diff --git a/_pkgdown.yml b/_pkgdown.yml new file mode 100644 index 0000000..47742b3 --- /dev/null +++ b/_pkgdown.yml @@ -0,0 +1,25 @@ +home: + title: An R package for (de)motivation and bard–bis generation + description: (de)motivational quotes and Shakespearian word combintations (bard–bits) to mitigate the unavoidable sadness after long hours of coding. + +url: https://www.despair.jpmonteagudo.com +template: + bootstrap: 5 + bslib: + bg: "#84B4BF" + fg: "#F2E1C2" + primary: "#7C225C" + base_font: {google: "Fira Sans Condensed"} + heading_font: {google: "Eagle Lake"} + code_font: {google: "Fira Code"} + + navbar: + bg: primary + structure: + left: [intro, reference, news] + right: [github] + footer: + structure: + left: developed_by + right: built_with + diff --git a/data/dsm_5.rda b/data/dsm_5.rda new file mode 100644 index 0000000000000000000000000000000000000000..24a0e2a2810f583d882652549ee07e94ccd34514 GIT binary patch literal 997 zcmV^6<#N{qp6<;mgo8&3$vYziaM~^lx+gH=sY{6O2Bs@k1Iw2n<1u8n<8|QpDmc z@$Uph?qQlxM0KtPvx;;si??=e`Vd;s5j{IIYf00By(pJLiL#9V#$Pu2&V>=u{gB3N`s8b1c8oipASdP4d&8`!WBCDeni+5Iu%~ogxUu@litj0k& zvqEIO`;;}BYOD=;%qouy+EBaJ3rDqjTdcBTQnJSGvLc0IK#^^TUWpp{;a!#ZIH)8W zz0-PUb*8w=+0r=*=2rB;99!YMr^%M|9{DlJDze_UB6-%eL84Y;j)+W?0#DjYT+y;C zW`!s0l~Oy25yY~WRlQ0t6`_w0Kq{lG3f1L7s^I(#R=uz=Dnw;P%}a9fBQtOm25Rr6 z2Sc~tKyZ@YJ%{Udb(uzX^+$OPQ=;g*yCQ9s&EwiaqQ)~rMUTeqJO<2ATCiqq(VjUl z(R<*habff5Fs+NL`3B0S6QAG_FHl>6m$$92fW*rJDewX>E7-k7++nySg-283PoQcC zNr=mobUoCeI8L-u_3SVyZ;GGB3+JLqCnbxY6Ko?+6KA!7q`2@kZzoUOR6=!=CnjUq z`D$qGjFuo=c#_0e>58PJY!wrDS=nX*AC@iCf`K@(WNH^j_^TYTT=VYnt^M{*6>@v| zE)ySs&e+|i+AFQy%*U<_0X0c`8Mjw&1jTla6iEl3#NJXotqQDAhtQEiaU_tO zce^MaNI_IYl`{TT_I6vltYREPCV2CjP&GFQAgBGD6(yn}SNu?z_w}w}PK3k?_Ld}S zEsIEx5+g%p&n`a};IHL|#D#Oxh556BMq0~ipJ+6U|DKYZ4PCWFJ^Y1eH*ZbL3VyE3 zyPx7wyK60n?g|oCPQC^qq&n5XWSU4Uf17ErHmNgCaxy+;Ih5DXq?oF$#d*i{7L#|3 z{B|D?y&J=hI0h#K?0Ej($+EGTS8J6AdUR~@qZ=9y?#_8hV5~#e>}{)zMlB&Q8zkdGl@$lo&G|i^jZf=@QD?gj|`?oJ2J~hquM!=h9 z+wA50ouA+Qf03>u$d3wGki49>@>6Bt07B-sxLF`$e7 z`Jx*r1mt9N(D0k=l%F!Jm}M-g+2KLK!lbB}+AGxP13~iKsTq983>8OAqMeG?7DwF( zWJ4mk9f9w&1Yy*f{)h@Gl;FCNRe&749k)U&cLQhroha$pHW`f>~lN2;(vC` zG-eb{Y15u2>$n7ROIk-CUJxW>9EVZ~G7AJMg*%W{&iYWS^kk1@ORWT3r^<`=QB80Jd9^Po6uZ#;}eu*v{ubTLwp)V$1@cN$Ha zoxPU^bkz#n%NCNoAVZR3_QA!x2z(qgnLGpjjF`E~QeY~DxDB#l)QnZ(w?Xz=;t?&! zT=3lrx=Loh5{Fn7;>;Mt*7)ilptWEwYyZ0L(`6^N;^p>*>R!UUOX_ds-29P`r>CdC guWc#~{9{*H3#rC0I}C2b}Slv`(GZ(@Ng z1z9qsr~Z)s*3vbD9&k{SPrKUv_Li15fUQ9ou_-Z@*^d*Y=Cj{O_ z{V1dF4^0Jk_!G)oEHrDep*J6&vC#~y=VV+#qaDMsGH6AE zu@S;MN+!UBwj}!#PnK`=1e6!>#wBTnpaOa`hN?i1xUL?Zs+62Hm4}K;B^*>B zG%GBe1LxrUCv%F!m0~dO^6Zk7%o#7y_DMP?t3jOUTtQg1cplU^Ucm9_2rfX?K{5$C zw&?=tm2f`$3+eqYq*APO$ke_~)8#=(*`SaQ!gt^XTT}u0 zjnP%0pX5*|r`^k;^n#WK*rCpdM@$5BmP?Mcot-SF29&`H%yQlB1sW0?bFQUviy${U z&T2OU`2(Wkx}};iUx?E!ZJ46Mpz!@I?KR8eN+{zBKDY)RBs0BcN}He%KNM=RRlfNL zhy~Q$+J9d6_A+UKo9_0NYDQt6S@rjHPX5rx)6>)6w>Aq7&0Cwp5;UCc6}>0)uRH$% LBW(&ksRjT5GhSuG diff --git a/data/shake_animals.rda b/data/shake_animals.rda index 3bca8ad02a8eb7231cf5bec8a6b3fe7bcb302e0c..58432c92b13dfac3dee5d25b160e5372887f57bb 100644 GIT binary patch literal 889 zcmV-<1BUz`iwFP!0000027Ok|j^j2AcE^87rVAA4bL?LBvJX)70g4vbTS3dTrLk;j zDJyQ~)Tij?czBqkPM7Pu{CtD>5mOOhUQNqRS?FnVXbHYto# zzk7;7?Dg&{)$0jHNvG=BdI|wyl(Lp66*_VLUgxlz0f|tO7)+3C2aAvl4E83Z`$IHH zf^J6Wvr;uWX+%9bC&53D#K_Ukd&#`gK$z(*WpL8SxYFXG)Y6$+BjqMCLuMI8=1ANz z6PI3?8!joM_65|`LuyR<0x9IkZ{zGy{Vm^f|@ zW@om*b&obdzhV#ewNY-(D|VFPZ5TyBvRVe%L~SsOZ0FXx?toREgS>XC1vlB;T>g~|?-pqY z&snb5i5vUa*Ck_)86%hA^SzVDrL~&%IDr3Ci*_@%&-c}3XOVBikl%2DJo1f1xqLML zN4c6C41*Z{{>BSzk7}Ot$s4XF(Ole^f_QbbUy&*N4rl=-rq0asT*W>q)SU@D0*@aL z^}^RGe>A**EToss6>Qw!KB%6#T%VHqhke!j$vX3alIZe}`@=SVKS^jb-lJ+2iiq7ucqbRZHE zw_0*pkZaXB^(peWb-|1lOJ_PgPyz@nem`Kjo`3pz@@WzTK^R2gMG(eJ2Jwf@;>|BX z5M40yLl6aH{(se$aKzuCRu$-$54`>+41%Bd`Fd6ge{E36wmp-{6p90q6HK8ylhG7` zLpoHiJ*lCm_Mvg>NtM!>qr}oPipu&k}p!a7woVH2DQkEo6&hV>Y)T(?vOpq~Bo?Zb zY!@2A8Cd8iACcFg~`}h{Me%cQT@tf)-z&og1 zm(x3FPTnz#=qR+x{ShUxCU z5ncH4a)_0s6}8KE>QHtZFUYI-zUw>!?@taS7x%8k$^BF7Rnip$rxZ3>0g>rMh>#lr zAhTNKAShmy2(8CmxKaWgCjCrCD|K}7jaPDu7VkIy6n4HeXdBsPD24p5S zWUL@?W61-l=lo_)Kh%l~ARay{Kf&oot2--0oNT$%l0m#JJ>a6Pk;OgQ8dD4a6K%=2 z<}>cd#hc8a29njXfRm^#R4v;%y)(N3R(THm+KJxbNj5j5wj;&6MH<3$=Ib@$#=h)p z?J>uUl1uRN+{tpVv^J_6F6;lPMY>hG$fcQ+p2Zzv>)&vJ8sr;^eEF#Qk8&jsu-}W} zA0K#u^-)!oKly;2ax@p$x*$Fq>aR!_{uHQ&TuhCbC&+E#6ym9Bc?4d5Jj69$tNhXM z?PI~cOddho{_P9ZF_-JDQ-9U3n!owy`T6;e?``IqFN*JMP73JY?Vk8NbN}?uzxmad IG2{pU03f)@1ONa4 diff --git a/data/shake_chars.rda b/data/shake_chars.rda new file mode 100644 index 0000000000000000000000000000000000000000..b3e43647cee2f70f418e6346ea2b81d97e53af6a GIT binary patch literal 971 zcmV;+12p^}iwFP!0000026a|Taw9hk?bwo9k`vFQ<^sCF%qE*0Ae958lB(II&?MAN zi%quqkt46N&86eKwoS0@$}D6HBtZZV50Coom#;tVzwVo+xo%e1SIzYrUz_zGzyJFA z=cZX*!T7FOH9P#ji36SZPc=}8IR5E*t7$&s^Uv#%%|N5&^lG(!8rT|oHMh!A)+Wbd z_Z(8lnu|So>s{S%E#Ux*Iru=y_>xWVk(~e$SvG;J|3%SmA7LtkCw@)QqoR)N46v51Rz$F%Jw?= zktNJswnnhqjvQ33$j3sIw&1dX!M_SsCgjq@uV;4yi3j9K1&5 zeN8A3*iz$ft=Il+l-T{uT5`p1pRukce0{C2jl;!ybtM)R69@0VPY)~?TccF|Gaeqx&pr+~|Db z1C-48a{cY|(lPK%Gy$ibb=QjDinL^R`;r|*3}f|IDPc9`$|DaTyhvCwU|^+{y?|9( z%EPFP82Bp05UnuEaafjRjMm(<9K4wZV|~QLrm74+B`-MMXS2|!qs?+~6+s}Xn-6>)rKb;F_!gv`YEckVSM`f?2LhxPCL`40;hb|@?f005P@^0xp0 literal 0 HcmV?d00001 diff --git a/data/shake_clrs.rda b/data/shake_clrs.rda index d4d9365c06b9bba3ea78f102c12dd407b0b4c145..e700fe90328d688e24f0d6dd7d276dbe70019f1e 100644 GIT binary patch literal 1598 zcmV-E2Eq9siwFP!0000025p#KlG`>6$KAyC`eU8lBt3u+&?XOk=>a-DK&PF_TZfWp zSz}6cNYSbC)I;_>NkLNl_|rR?%?dw(APImVw152e>6hK7-D0tLy;#0}wRpXv$HnTe zKY#!E*TrJ_ii95)%f*&{@AR2n_}{fqnzY}$H;ctH{rV|ru)1rGt>S!`$%-|y;!zMS z3&P$Bp!~>0FZFn=1gkG`OkZ&|3mew+@jU4R6oJ6Ez?(~SZj0yhPKeAF>3-wrA6LkO>UaS!z_Z$CHrbb z-1JwYf~jrAstLB?0IbK6Yc~X!Zak0@6{Nh*;3)zyG-Go?C+}yhQYgHpK6eyLCBF>! zI5)7a*g*fn{=IaZxDfJ7nnP6`&v!u^Rj1O98u*m#Sm|zI<0v>S!EG(*t}5QOJPAsL zH_NIM=|!HGBn(XwqzuBN6OK}`p-o|OOz|e#O(EObXN;i*7{i%N(IFPV-aNW>Qt&Z1 z^zqKn$I{S8FywS{CpeH>*~|cpVAky-nv!2k8ILuwPMheMR-O%6YR!^ChqWUz@^!D@B%j%-cZ&Tix6GU?=1J|h&S_#p0#`! zSz%R*?#5$0XO_DuOqB&K=t10fGfe(`o{8q{Mc3%d^payo&O~8hH0raFoh}y&XDmRd zSMLGBGJd32qfK8$mt~PqYpRyR*ObFq?c6(|IAQ^%Bj!k%ZRBMJNxtwnDv2?j(`4M+OcYI(t&Z2>#n#nqzSq*%!uCRofag6#0FO^Pn zP*W#V$C^kz28U9xs;RpQM_@^UOsYM$BhQwYlc1xG`CHS?9j}dpmvAj)jGUKy_o1e4 zDa~xfKJ`jl5(hSRGS-y{pf(VtnleC3_fT^|om5&K7d)l2l5U4M|4uSZNPI z&aH3iGgGyURpSuk{B-Or92Gaw_PRc2SL@D8S+0;-uE)WQ(E(>!OTosN%Mn0xwV`S< zP*~D#1yiv~ElEmq(ld-D!kL1qSPN+yD3t43R!odh!AY1vv@VvkPbZ$DD5ZcF#{uX} z0!aaq*K15{GOnVlcTRwAkjQYNG>ZeC63Hjt)^t+y=4MqZ&iYK~Q~Ic`*U_O5wb3I} zv4hKQ;%!4o%|%MmWy91Zy;PU{c7KWhza$*aJ5fI}Tl`Z5c+~=)&|V&9N5GMuWFGKy zW_x?$9CnkFmIGd%Rb$>DkXrNs0UKnYrOcsq&35fdwy30J-SL z4(x_bvH%X9qj~G~oCtQ^p68dE&x0$|BNs1(^2%AfTb^d3x-S$Afji8vUk^mQe*Lu2 z8*Cg(<_j|( z?OKAyEh+NCBFGB|FfT01^TNtmaQztA__8rN)kk{vYsJ6BuBg%Ddg1=~8sYlJNK+T8 wTiV!%pnjmASO3y~-@kwRue3>Bp)PGwK^obIlkLw*`euLr2hnPmxG@$001k^GZ2$lO literal 4398 zcmV+}5z+1+iwFP!0000025p?blH<4$hsQUPMk1vd&90qK=E%2!6F-296*er>8w#|0k3XRek(8YbiTV zmg1-mG78OE1fjG76yA!aRm1pkXhiiH?`aQGdtohFIbQC=7=P^hCRJzzsPIMfx~^0x zz7YSMgumXHYkJZoW7`ejcbAs5Lf0J>%7||7aN9-jsiom2(Bd@BW zZt~*Ji%{o6e4m>5(%&Z?s@fdH;SR510kp@GzV1Sot{qSc3n470om_gX z(@?mQ!=FRD*@J-Uq#8;6O;_YQy;TO6j-DfZN)&r^3yT~3~S%)8t&KE*8VPJ68pl|E=cK&TEF35js-jJ#7(;?7SXLBWg(B(Q z8;Yb->trKi>qu(JFeOPRby<@%H8NV-U66V0>*^wOrJ~i?1)0x|!oX3>Db~HJF3hzS zPGY)3)yiS)rZINFMOCU1W7OpcAh=qSHR)(r(%UvdM=P};DLs>};a(zAXt0V^qoyMm z%2lNfq8VcWE1?2WyF@B|I>|JON;MGTSOAepAZdV9-$%u!%607O!U_-#66sE)X7Pr% zMEHX@70py0+$<|CMazUXsgJJPA$I6XH4UTCF@j^BcylDBmQ7O9#ZlwHL94rH=6W-T6i|B5 zBoi6R#C4qOwmfj$26|F)ntb65qY?KD2AQsrgEQL9g;+ca?8;G0J-!BuOf_{p!_|Uj=Clpy@LL;5EaGU3gd0TY`hJH@m?NfSGVbP zNdWJCl!Me`Y;i5LzR2+6i(?&sE6jD)$3$?^O)ZFxRp2Tu(~A`Zao8iJJ@lIev(pcfXPUKqsn!pLlJ z-97N)i{msT`$*SWTQhy}1bWyJSR^~fG}1g~WWVOaYYD~}7G=|F>u5IUmSs)K2YusM z>KuO?YojNuzm^oGjxk##jW5Ei&CWA;)IwHz3Xe7FFkGm|!x$0h8r{gpqaxCbB~~ zrjGG3^#sP$F_vm@02TZs;!Indq)u(4Ym5j_wU!^UGnsQfi)h^m>yE+#e&_qCnM}Z1 z$t-v(=?9H#*<$9wS1#C%?=TO2cf@9}JZafg7wlasb;%y56()UNFoa&P=y_$X)4(_h zZIx#_Sv^mn(>D&LQcDWSW00}6LS`~7JL#z&*)2oZ(2 z2*(En+3S8uFpCV{;xFh=Ee0dM4TxtMJ>%JSk8l#R0-Jm-RydH2V74h`33s0kfH|>< zy|o43@+ZOmh8es&PXQU3?J#%|tafDCnB8Z=ZGb$ujSNDXK)JI&lW)T*vp!E zYaGE}rtX~W*la&ZvorN94ZG*Xberv5u0QEM=D?Rcu~1q8w{bsdMI0JuuCcZ(xY`97 zv^7FLOpVC)1{Mu1P2;b0jjv}2zTQg%+O}+DS|^uQz)^IFz5CV?%v3jZbz%49`&|1( zAQe{neJW;ei`mxIJ`oHXkO#&15^=6S;g|VtT4)C|46h#HE`Va>~P(kxTy#;$G}b|d*7w(LV^=p;zyfq7bT!&J8NSWl4p+XlqkSYXgWiQO~AcUl92 z<2J2q(#~TmbrTQW?QDSCU{Yk=){utSwAr~qQ=l`0A8YY4WYr^t#=N$q6r)`X12RDBwNw8s=CCry0PlWO^$%d zsfq>WB*fF73suGIwK|<(N*Nhm(SX~fj=EnMfO&M9@?^4k>GkcwFil$LF{MFvl%o$z~^~Dd6sb@X_^I9`;$t zH}V|FV?0Z7d?J)w^>WlIZU*)B84mvS z?0Am3MlS@aMAx}08N}R$k@2MUi$Te9?7WDEBS1DwUju`IjTGHypjk^W%e*w`&L5d4 zV;zG^DBj7`w5CviOqz;4#Ljk@>nyzQX(nWj_?dl|K$p-J3-*mdVLwj*=QI0Yq3qQy zOP>V<>ZR+}M2mdg)9Yy%YIMzueyZ5@XVMJwNdz`!_K}1o&|5G4)b^isjHA4mZ8KAc zVd$R?u9eUZc*K2~XFRg^i2GBI_!wLA4LZ;vevHQ<<^dysm0zO#^rxeDZ2kSg8{x+U zf$?a?GCrNWJa5G;-5)9V!T>>A0%U&NGVEF0Pxpw`v+SpFjBoScEcm+?$6ASM%zfQP zi=pSyeWAq-4-#(-;m3&IH94Z@KF_Q@Ggqf2hWmxiw}ICh!*yE%orWRc&g?z6WJg~} zKC(gbBHFwFxy=gsMzt#d=OlozYNtvA@DJ}i|V0Z{k7y_$7 z!GmDeab}xqP+tr9c&GtYMyn}(rDStmvDfp&*VYj{2cf4!JX~w+TRI)A*=Z1Sjn>1G zOc4xX8~u8I4rHUV6CN*vIGuDlBg?XK#V|Wc4k1?QB=F7b++Ja>vCWpCcQR-gRn)|# z0e5}_s>jx$yb|;=YXbeHj?1u@p%OZ2|ML)|qjh%vYm?_2Uog|S4LL^cmmcLE&3!kS zqBJjJj5Wx}Hf(iA6sDrj4V^M zyBP%@F|hzfYqTkXRBg1LqPumC2nAxlT0?&M`M%9Wj9)@=kPp*%u7vGbRUb!6Azp^uI#YjTdYdZUq)dDP% zt$<%6fYffHU_1!tUtF%oTix(fagf2-PG=0s3J17Fvjo~|37@hKKv-cBp0$}8nkSIM z-!lZ$iw9||t0WT_jm*`YH)z;LC9g#8AG2>l80FtuCk(rh3FC*+me2RtIcBwU4*NKa zvwnN$7@{ltL!R4uOB4qGS|7AInaLeuV33jy5Wh9XEQ^!Ca(Topmq+aLtZS`nbATn4 zxZ++$=}6XcgK*2_s@giWM&)Nqwhp1$ypeYREp~ugGE10+cYrIg1H3K!8@Uh@>`z&O z?TVk@NfFxufP8HuX&wSV-ASA oI-jG*IW#{X!%?JXl0wHG#VCF}nNL4S`k(ppe|Z*~;*3N904thp3jhEB diff --git a/data/shake_jobs.rda b/data/shake_jobs.rda index 5ba7c7333a2b3e96d0c521d21621baeaa52235e7..827d4701c39c7922beb2c892c01e22c5d56f9bbd 100644 GIT binary patch literal 714 zcmV;*0yX^~iwFP!0000023=K4Zrd;rRbxw*WE3dS3*-XLrkft1=mClr$gUWXl*EW1 zg&zyv^%}iw({bt{=`3XHame|+H$#2@`uMqj?5nEURr}ptwX5;9s(=3Y_UTJi?e7r0 ztM*lg|Gl4K5x<`7;BoiIS4&lWz-PMd*e}x1d;J`RFjvs5P8uezsQr(;r(--WWIOQ4 z=E5YvDe}l{G=Y4)f?}hxj;D9vXNtTSIn8vc@y}5@inU*1N^!k#CrIx18YE99tGE=7 zAcHl4q|y$PFv0;P*=pg~oEBs zi&XcKaHgeW;8uY|r6`+#Q$|<_5=Suy)Hjtm#DGc=+%sz_ZYPadgjln2v{t1Ov4~`; znX((@ew-Y}=5m^H0^G8Y66n_X>?M;xCwf?Im<1M*^i;5&v-_vWlY}kslVuRHyjBpM z{i@)+xuO+nCfm%LqMZOGF=<0PT6e=y zn57sg)F7q_a!&}Z66yy9Z1Gx#nPN@Yn&raLONH{5O9y6$p=dKLRe^#uOVNTh1P~#@mZbdXMM9d*E3H zVNRCXV&_+Stv88{o07H;)5t|=m~I=)2WOSdiFcr|?X}F4sAZwujJJ+2v>kD~H6>@0 z7*bmG4TAS!R^>4R{a9=JQwB(x{2{tp{jj0hYj5)jzb7`xy zKFAQ$KpX~e<-IneJ;!bp7+&0>O+ZERJvQRmOoM{KzTRuMpNQH3PSW+OK#R=@RJ^R- wZ0(%g9%%b}eC~eZ&&$ippSM1lLgC-|>^TH@7#*HR^!M`o1BvcEC&~r@05An)I{*Lx literal 746 zcmVb#@>l}nn3-#W(R8AL11Wx>uU{*R2IW7BR+ zw!yS3YR_~7T9C(y>SRkkUVyi8sdQ=QP#!7rSIMiIPDS~zj%$k5UqNN#=1lLwy6m zHZdi)6f3XUu4cCGAz?>LG6B6~NR*B8z+mst8uL+v!ZGS=%N%ztDnYP6QHtUwU!>eJ zwsXdrQo@#qMOaHX5$Zs>59bF4XkBymM4`s4s=)OGD}_brSU|Bg4R33THOJQU7lt_(D6hXX zn5fOhYqN|C53RY}dM&70m)Bs0UG89<7oFHS&f=`Q&??HgPv8{riW3@6YG^i03-8|K zEjxgAmyAj91UX%A!yM`9sM&xqP&yfIKHnlorHzPqmBU8fE8 zZ}Py}5B|a+3MKXjsBVy}WCepNLRG!_4`sK#S2HM0Z-f*qUf{xTfuIaa{ezpXcZ2Kd*fj c0)>C&GcBQo>nDxp5&b=lf2LnpkIDuB0CuNseEsP-_cxp=@oXfp=n7d&>^>uvMX3m zj79xHCb#~O{??{W2Fo;u1f2AF+fkAvX_BR9Nt*j*lK)sWA3rBacIJ&Y zNtO)#|69|;J^obWl<~(uyttC&z5lx7k?gBb+v7U_?hw_{DCSzI7Q?aH-ShezbdO=( z5Xs}ZT$1br>X2V`B%s{&(XNM6*i-Exj%PQp;2lr2uUR+=7yBVRs{ z=8BfR*t5fu-i2hVUXx;=DZ+uP&88?r9odW+GF>_bxfa_#kWOm|66Cc;*s(TrV4bF5 z!#Z69>oP}RUGo~j_8crW!BKjRtcz@C!k`Y2=@l{hr53me#zYda4l88LtPz?a*Pa%W zxd6@h=~(do1c5tLE>Z7M*+?_CWD-Hrnz%bt(uTP=Aln$RCdqso5L{Hb5*Czz5Os5h zI!4W1d(WMNokS)#gZ2)&hVsVtzLmsWPek|v+ps^Z(R8>Y72pPyzd>Vi9wttiqYn%JFGl_DnEGfa6CtwUj zdss=NJy^}8D?r2b78C8PGkmK-2b950YvCZ+S4=?ta&)3-=Qg29MeS6}e4k&dVFty; zPDIV}MvHjOuU)(Xqw$`6Us~X94`*l$s*|TaMGZ1&npfmBxA=u#Y({f(H%But-lw69 zPYUAP%4g1qmL~)8{3t5l(JtOS4cllI{-9#KY%ck+55~@qxRdef@LvtLo zVY4`ZbkDp09Ub~9b{>wu^WWKT|MT?p^yhWXR(j!I7fByhDqfbK~ G1^@tm7f$^E diff --git a/data/shake_things.rda b/data/shake_things.rda index 7e5910cecb563743abf4f450fcbe56472175f246..2d3ea61f7a88352c033b91c0d84f2bd73d9e9234 100644 GIT binary patch literal 779 zcmV+m1N8hKiwFP!0000026a`yshwj$X*#7+4{_^?b!~5gIu_%hNsLI=-tm(C=zkd1j?n6;jw`AND zRdGlEU-=Ox^(~Cr4xY}x{rjyb-q7>we5UprIvEY&aIDY{jTa`QVb9L`hlRdN7yUiq`t_6owtxmq!T(Sjom31ZbL6VsN9NLGo-mHPa&DuGP`RipRaM3NebzZpE695yv1o$bjAPk0)jS)1X z6EN&((8@6VKxreX<)nTj;yU&)AZ6;q;9z0m8c+R8cn0hY<0-`&OK-Y8P=alxQCzH9 zXO(!|4Er;6cR?BDMQY~3+qLgIeCEvH0%NQ;N)X?ll;^~~mML+wp!Ucd?YdES3S=y? zqDisIMWi}PZMo-z0nZ*CFeOAi&pMInQ*!MC8s-33F*0He@k6VvP}X1NsuimXsmaIA zA`<@Zz;zs3kR_ks73$nNsj+ z9!GEse{iekwDTHQxBk9rX0f$OQR8^(vN@ym1*pDh>^b$GHcVGjEGUFDniEVnyc$cN?00C@`D?9BG+g^S^%tKo*3>qh(VaHqR51> z#5AT3V-+PlGu0O=x)bb>bi>6*+xmy;siVObw5m5 zsk;t0fo`KQ&SJB`PK(M8_|Edc`;cFHc|kc32Lj-9lKH&^UR*9&JM$;ev^Pez*YT2# zmD#nMa^qLFG&&do#IvH@+JOK@bK}coKv$JqGdD#q{m_Ac#)L zco9UwDgA$G8d!<%T_fA2q4RH^zXic-`u*OYiHj}j${M-GZM!#;MWeA5)|$X_DYUib zQYqY8>q4lt=xmUg!UyXX-B50R#tnxnD0p9S0Mtg9y_HS{bPeZ9^9GbGIpWMgj548Y z+Hfx1Ys3}T*Fjy|Ggq*&Q7@tGgtjj6RP`N$yOLU?%^%Nu0%zS8x?gX&)*S$4y>c)s z$3m{KYuIQ&GP)d=0~(}IO#eBhwWNlh#7{@uJ$qb2Rk=RQG;El-q$o8yJTtskj3>-{ zTY8cWffDStQi6+B{aQF4w~GCly3>VF!j!I=qoVEW`W_!SGw6;nMz@r}K7SL26HjI3 z5+`$%2AQKv*Nr$6P}veAnv~YLl&+5OL(4s%DKPAj0aHTM^Q;r8#wC}gL&Y3mUp9_ zp}zA7hS&emutLC*H5g7tJlXA`>)n>C_VhI^peq~xM#$RM?a2kA6{?7k@w)ozx|0%? z#-04&mOJ5VbWU0TtYSq8y5=AXVRaORCxqc=H>Njes|e2@nd$=-9g1y2GxOl$4ka+9 zL9an`hp72bvqc(V#Bmj)1cQy5kQO`GuCK#k@=6_aI9X`iGUVFwqo;JYoY~{A p=y&pq{yaTB{Wy$SKFg;cb6i0OXSF7Ovi|ITe*t>Z%FBuf004Q1l>-0( diff --git a/man/bard.bits.Rd b/man/bard.bits.Rd new file mode 100644 index 0000000..eb4547e --- /dev/null +++ b/man/bard.bits.Rd @@ -0,0 +1,49 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/bard.bits.R +\name{bard.bits} +\alias{bard.bits} +\title{Generate unique bard bits using Shakespeare's work and DSM-5 adjectives} +\usage{ +bard.bits(cat, seed = NULL) +} +\arguments{ +\item{cat}{a category to be used as bard–bit. Defaults to "any", but "character", +"jobs","alliterate", "dsm_5" are available.} + +\item{seed}{an optional numeric or character seed for reproducible results.} +} +\value{ +\code{bard.bits()} takes a category and an optional numeric or character seed +to produce a bard–bit. +} +\description{ +\code{bard.bits()} generates bard bits using Shakespeare's works and the DSM-5 to use in personal projects. The term bard–bits comes from Shakespeare's title +'The Bard of Avon' and the bits ( Shakespeare's characters, places, professions) used to come up with coherent combinations. +} +\details{ +When the category is 'any' (the default), the function combines Shakespeare's adjectives, +DSM-5 adjectives, colors and the characters, jobs, animals and things data frames +to then sample one adjective and one noun from each of the two combinations. + +When the category is 'alliterate', the function combines the adjectives and colors +data frames and the animals and characters data frame. After an adjective is selected, +the first letter will be used to match against a noun. + +When the category is 'character', the function will derive a bard bit from a data frame of Shakespeare's +characters and the adjectives data frame. + +When the category is 'jobs', the function will derive a bard bit from the adjectives and colors data frame +and sample one value from the Shakespeare's jobs data frame. + +When the category is 'dsm_5', the function will derive a bard bit from the combined jobs, +characters, animals and the DSM-5 adjectives data frame. +} +\examples{ +bard.bits("any") +bard.bits("dsm_5", seed = 1234) +bard.bits("jobs", seed = "horrid antonio") + +} +\author{ +JP Monteagudo +} diff --git a/man/dsm_5.Rd b/man/dsm_5.Rd new file mode 100644 index 0000000..5a6edcc --- /dev/null +++ b/man/dsm_5.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{dsm_5} +\alias{dsm_5} +\title{A data frame of DSM-5 adjectives} +\format{ +a data frame with 150 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +dsm_5 +} +\description{ +This is a data frame of adjectives used in the DSM-5 to describe mental states +} +\keyword{datasets} diff --git a/man/family.Rd b/man/family.Rd index 6c53639..44cd864 100644 --- a/man/family.Rd +++ b/man/family.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 13 observations and1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/life.Rd b/man/life.Rd index 2ced49f..01269a6 100644 --- a/man/life.Rd +++ b/man/life.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 27 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/lit.Rd b/man/lit.Rd index 56749f9..d4f062e 100644 --- a/man/lit.Rd +++ b/man/lit.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 22 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/modern.Rd b/man/modern.Rd index ede16d9..ee1235d 100644 --- a/man/modern.Rd +++ b/man/modern.Rd @@ -7,7 +7,7 @@ \format{ a data frame of with 40 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/psych.Rd b/man/psych.Rd index e94d9e2..a29aafe 100644 --- a/man/psych.Rd +++ b/man/psych.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 34 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/rednecks.Rd b/man/rednecks.Rd index 720667a..1651bee 100644 --- a/man/rednecks.Rd +++ b/man/rednecks.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 21 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/religion.Rd b/man/religion.Rd index b07e5d1..31fa6db 100644 --- a/man/religion.Rd +++ b/man/religion.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 45 observations and 1 column. \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/science.Rd b/man/science.Rd index 75ba862..0e64c82 100644 --- a/man/science.Rd +++ b/man/science.Rd @@ -7,7 +7,7 @@ \format{ a data frame of 27 observations and 1 column. \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/set.char.seed.Rd b/man/set.char.seed.Rd index bcf73e9..bd30942 100644 --- a/man/set.char.seed.Rd +++ b/man/set.char.seed.Rd @@ -21,7 +21,7 @@ Each letter and number in the character vector is assigned a specific number. Th numbers are concatenated and divided by 2^39 - 1, and the remainder of this division is used as the numeric reproducible seed. -If you get a warning about 'loss of accuracy", consider using a more succint character +If you get a warning about 'loss of accuracy", consider using a more succinct character vector, otherwise you may get a seed of 0. } \examples{ @@ -34,3 +34,4 @@ set.char.seed("Manny said what?") \author{ JP Monteagudo } +\keyword{internals} diff --git a/man/shake_adjectives.Rd b/man/shake_adjectives.Rd new file mode 100644 index 0000000..2775ec4 --- /dev/null +++ b/man/shake_adjectives.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_adjectives} +\alias{shake_adjectives} +\title{A data frame of Shakespeare's adjectives} +\format{ +a data frame with 100 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_adjectives +} +\description{ +This is a data frame of adjectives used in Shakespeare's works. +} +\keyword{datasets} diff --git a/man/shake_animals.Rd b/man/shake_animals.Rd new file mode 100644 index 0000000..5eb0d5f --- /dev/null +++ b/man/shake_animals.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_animals} +\alias{shake_animals} +\title{A data frame of Shakespeare's animals} +\format{ +a data frame with 150 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_animals +} +\description{ +This is a data frame of animals used in Shakespeare's works +} +\keyword{datasets} diff --git a/man/shake_chars.Rd b/man/shake_chars.Rd new file mode 100644 index 0000000..4a183e2 --- /dev/null +++ b/man/shake_chars.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_chars} +\alias{shake_chars} +\title{A data frame of Shakespeare's characters} +\format{ +a data frame with 137 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_chars +} +\description{ +This is a data frame of Shakespeare's characters +} +\keyword{datasets} diff --git a/man/shake_clrs.Rd b/man/shake_clrs.Rd new file mode 100644 index 0000000..6efa1ed --- /dev/null +++ b/man/shake_clrs.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_clrs} +\alias{shake_clrs} +\title{A data frame of Shakespeare and unusual colors} +\format{ +a data frame with 300 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_clrs +} +\description{ +This is a data frame of colors used in Shakespeare's work and other unusual colors +} +\keyword{datasets} diff --git a/man/shake_jobs.Rd b/man/shake_jobs.Rd new file mode 100644 index 0000000..0075c88 --- /dev/null +++ b/man/shake_jobs.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_jobs} +\alias{shake_jobs} +\title{A data frame of Shakespeare's jobs} +\format{ +a data frame with 103 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_jobs +} +\description{ +This is a data frame of professions used in Shakespeare's works. +} +\keyword{datasets} diff --git a/man/shake_things.Rd b/man/shake_things.Rd new file mode 100644 index 0000000..d130408 --- /dev/null +++ b/man/shake_things.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/data.R +\docType{data} +\name{shake_things} +\alias{shake_things} +\title{A data frame of Shakespeare's objects} +\format{ +a data frame with 150 observations and 1 column +\describe{ +\item{\code{values}}{a character vector} +} +} +\usage{ +shake_things +} +\description{ +This is a data frame of objects used in Shakespeare's works. +} +\keyword{datasets} diff --git a/man/stoic.Rd b/man/stoic.Rd index d29e028..a4b7903 100644 --- a/man/stoic.Rd +++ b/man/stoic.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 32 observations and 1 column. \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/tv.Rd b/man/tv.Rd index 01c37b1..4793130 100644 --- a/man/tv.Rd +++ b/man/tv.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 23 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/man/work.Rd b/man/work.Rd index 5c635ff..45fe615 100644 --- a/man/work.Rd +++ b/man/work.Rd @@ -7,7 +7,7 @@ \format{ a data frame with 31 observations and 1 column \describe{ -\item{\code{value}}{a character vector} +\item{\code{values}}{a character vector} } } \usage{ diff --git a/shake_chars.rda b/shake_chars.rda deleted file mode 100644 index e542d891cb1a3e594f7511caceb780dc50e43b08..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1010 zcmV3!izYVDeyx2 zCdeza&U%4C-WX+c)Msm;4ank|vEZZ$(OjDbb!kDnhnJ=AS6(WCx^Zar%i3sZtdqL1 zz~@{-S)i+e(Hg{I{CX{&g8u4*r*!Uh3A$r0{LM`iRcTZm#HB*eWk_i_HyTs{QZqnU zf(z>YwW*QaoO>l1yTK*e(#Leu?V$k0+9~S2QLH^(S_yW%25&KX?|<~RVPOMSG6pla z^Qz;_Xa_qV_GXKw1jU6IZjkC!R_tzg0j@$TH8Nn5vgSfh;m*m%vAp&r>X^%rD(R?9 zF}an+x-0pPw51Y9)2TFCpi;c>S?X7Z|2V5CPiKgFcATpNR{|S>HI;+ONh!p0dLLlN zE@#kmf?L$GL*i>ADDzzm$U*@f|AVy=W-m*YS1oHn2RVDfI*JqROw2FKtAjG-ZScKm z+1tUjX*ytJ=SXof?Ah8-^&h_J_#?$l_5mj%3n8bB8?Q`Ja6VT`yjsX|qdGnZIVd8M zj`!S6i6UD#`O#>+fEUjmCVnU#V90a+jh%%gMtmR=ZV4gt^V9pn(b*KbZD8) zjJ6Qx$=vJ;v^G#6{fu_U<0SoL8?PAJORzhzadiD56%{?Sb$X@b9y!G;OOOZ-izX2$ zsYU3tS!d{twuU-~_!xWT9KL!E<7Dn{ahxL|9F9MIT3T9ciN@e$Gn%`K?Rpcz(Vad= zM?;L->aUPOZ{s76t_TRjBWx>)fst101F=eQdeka4HGCYzG_-8Z+euQ$ZPZ`vkT;%e zDydB4Y#edv)Hr7t$KSo|%%`RDys?*SzYB_78z1r*l4gY9 zKA2H83Le<~iIu2AZcDU6YT#m}6S{MnZ*=1@#{!zRiGqG*^aJqF7;LE%N+0Fi;awG5 zZg@dKkJre}F_;-EI_zlAqaugs`q#LNaWBM<4bz3FJqJBnDPk42_gp~lf@WY$iLyU* zTBehwVSmbM!a;JU%|& gzdf^56z7{WM* test passed diff --git a/tests/testthat/test-demotivate.R b/tests/testthat/test-demotivate.R new file mode 100644 index 0000000..ab5eeb8 --- /dev/null +++ b/tests/testthat/test-demotivate.R @@ -0,0 +1,5 @@ +test_that("returns character", { + expect_equal(demotivate("science", seed = 1234),"Gravity: making sure you never get too high on your achievements.") +}) + +#> test passed diff --git a/tests/testthat/test-despair_message.R b/tests/testthat/test-despair_message.R new file mode 100644 index 0000000..3e07ef7 --- /dev/null +++ b/tests/testthat/test-despair_message.R @@ -0,0 +1,5 @@ +test_that("returns NULL", { + expect_equal(despair.message(), NULL) +}) + +#> test passed diff --git a/tests/testthat/test-motivate.R b/tests/testthat/test-motivate.R new file mode 100644 index 0000000..0e2ab95 --- /dev/null +++ b/tests/testthat/test-motivate.R @@ -0,0 +1,5 @@ +test_that("returns character", { + expect_equal(motivate("any",seed = 1234), "The difference between passion and addiction is that between a divine spark and a flame that incinerates. - Gabor Maté") +}) + +#> test passed diff --git a/tests/testthat/test-set.char.seed.R b/tests/testthat/test-set.char.seed.R new file mode 100644 index 0000000..f66c815 --- /dev/null +++ b/tests/testthat/test-set.char.seed.R @@ -0,0 +1,5 @@ +test_that("returns a numeric vector 1L", { + expect_equal(set.char.seed("stupefied lepricon"), 649068544) +}) + +#> test passed