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