https://github.com/emitanaka/quoter
An R package for random quotations
https://github.com/emitanaka/quoter
Last synced: about 1 month ago
JSON representation
An R package for random quotations
- Host: GitHub
- URL: https://github.com/emitanaka/quoter
- Owner: emitanaka
- License: gpl-3.0
- Created: 2019-07-28T13:57:20.000Z (almost 6 years ago)
- Default Branch: master
- Last Pushed: 2019-07-28T14:05:45.000Z (almost 6 years ago)
- Last Synced: 2025-04-02T02:35:48.789Z (about 2 months ago)
- Language: R
- Size: 17.6 KB
- Stars: 2
- Watchers: 1
- Forks: 1
- Open Issues: 4
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE.md
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# quoter
[](https://www.tidyverse.org/lifecycle/#experimental)
The `quoter` R package generates a random quote sourced from various sources. You can use this, say, to output an inspirational quote every time your R starts.
## Installation
You can install the released version of quoter with
``` r
remotes::install_github("emitanaka/quoter")
```
## Example
Get a random quote that are sourced from [brainy](brainyquote.com), [statquotes](https://github.com/friendly/statquotes) or [dadjoke](https://github.com/jhollist/dadjoke).
```{r example}
quoter::quotes(source = "brainy")
```
You can get a decorated one. The color output will show on terminal.
TODO: need to add dark/light themes. Also ability to customise output easily.
```{r }
quoter::decorate(quoter::quotes())
```
## Show quote on R start-up
To show quote on R start-up, you will need a special function ot the `.Rprofile` file. The easiest way to access the `.Rprofile` is to use
```{r, eval=F}
usethis::edit_r_profile()
```
In the `.Rprofile` file add below to get a quotation for every start-up.
```{r, eval=F}
.First <- function() {
quoter::decorate(quoter::quotes())
}
```