```{r, setup, echo = FALSE, message = FALSE}
knitr::opts_chunk$set(
  comment = "#>",
  tidy = FALSE,
  error = FALSE,
  fig.width = 8,
  fig.height = 8)
```

# praise

> Praise Users

[![Linux Build Status](https://travis-ci.org/gaborcsardi/praise.svg?branch=master)](https://travis-ci.org/gaborcsardi/praise)
[![Windows Build status](https://ci.appveyor.com/api/projects/status/github/gaborcsardi/praise?svg=true)](https://ci.appveyor.com/project/gaborcsardi/praise)
[![](http://www.r-pkg.org/badges/version/praise)](http://www.r-pkg.org/pkg/praise)
[![CRAN RStudio mirror downloads](http://cranlogs.r-pkg.org/badges/praise)](http://www.r-pkg.org/pkg/praise)


Build friendly R packages that praise their users if they have
done something good, or they just need it to feel better.

## Installation

```{r eval = FALSE}
devtools::install_github("gaborcsardi/praise")
```

## Usage

```{r}
library(praise)
praise()
```

You can supply a template, and `praise()` fills in random words of the specified
part of speech:

```{r}
praise("${EXCLAMATION}! You have done this ${adverb_manner}!")
```

Note that capitalization in the inserted words will be the same as in the template:

```{r}
praise("${Exclamation}! ${EXCLAMATION}!-${EXCLAMATION}! This is just ${adjective}!")
```

Currently supported parts of speech:

```{r}
names(praise_parts)
```

## License

MIT © [Gabor Csardi](https://github.com/gaborcsardi), [Sindre Sorhus](http://sindresorhus.com)