1 2```{r, setup, echo = FALSE, message = FALSE} 3knitr::opts_chunk$set( 4 comment = "#>", 5 tidy = FALSE, 6 error = FALSE, 7 fig.width = 8, 8 fig.height = 8) 9``` 10 11# praise 12 13> Praise Users 14 15[![Linux Build Status](https://travis-ci.org/gaborcsardi/praise.svg?branch=master)](https://travis-ci.org/gaborcsardi/praise) 16[![Windows Build status](https://ci.appveyor.com/api/projects/status/github/gaborcsardi/praise?svg=true)](https://ci.appveyor.com/project/gaborcsardi/praise) 17[![](http://www.r-pkg.org/badges/version/praise)](http://www.r-pkg.org/pkg/praise) 18[![CRAN RStudio mirror downloads](http://cranlogs.r-pkg.org/badges/praise)](http://www.r-pkg.org/pkg/praise) 19 20 21Build friendly R packages that praise their users if they have 22done something good, or they just need it to feel better. 23 24## Installation 25 26```{r eval = FALSE} 27devtools::install_github("gaborcsardi/praise") 28``` 29 30## Usage 31 32```{r} 33library(praise) 34praise() 35``` 36 37You can supply a template, and `praise()` fills in random words of the specified 38part of speech: 39 40```{r} 41praise("${EXCLAMATION}! You have done this ${adverb_manner}!") 42``` 43 44Note that capitalization in the inserted words will be the same as in the template: 45 46```{r} 47praise("${Exclamation}! ${EXCLAMATION}!-${EXCLAMATION}! This is just ${adjective}!") 48``` 49 50Currently supported parts of speech: 51 52```{r} 53names(praise_parts) 54``` 55 56## License 57 58MIT © [Gabor Csardi](https://github.com/gaborcsardi), [Sindre Sorhus](http://sindresorhus.com) 59