Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/mayer79/apero
An R package for pandemic aperos. Just for fun!
https://github.com/mayer79/apero
educational r r-package recreational
Last synced: 15 days ago
JSON representation
An R package for pandemic aperos. Just for fun!
- Host: GitHub
- URL: https://github.com/mayer79/apero
- Owner: mayer79
- License: gpl-2.0
- Created: 2021-12-03T19:24:24.000Z (about 3 years ago)
- Default Branch: main
- Last Pushed: 2023-05-18T07:13:04.000Z (over 1 year ago)
- Last Synced: 2024-10-04T12:56:54.185Z (3 months ago)
- Topics: educational, r, r-package, recreational
- Language: TeX
- Homepage: https://mayer79.github.io/apero/
- Size: 3.31 MB
- Stars: 0
- Watchers: 3
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: NEWS.md
- License: LICENSE.md
Awesome Lists containing this project
README
# {apero}
[](https://github.com/mayer79/apero/actions)
[](https://app.codecov.io/gh/mayer79/apero?branch=main)
## Overview
The {apero} package has three purposes. The last one of course is purely recreational and not at all serious.
1. Its "packaging.R" script explains how to build a simple package using "usethis" and "devtools".
2. It shows how to use S3 object oriented programming.
3. How many guests can you place in a room of given length and width, given that each person should be at least some distance (1.5 m, say) away from each other?
## Installation
```r
library(devtools)
install_github("mayer79/apero", dependencies = TRUE)
```
## Usage
``` r
library(apero)
x <- apero()
summary(x)
> The apero takes place in a 6m x 4m room and the safety distance is 1.5m.
> A whopping 12 guests are here (incl. you). Nice apero so far!
> There will be 66 clinks. Poor glasses...
plot(x)
```
``` r
x <- apero(room_length = 1, room_width = 1)
summary(x)
> The apero takes place in a 1m x 1m room and the safety distance is 1.5m.
> Oh no, you are all alone - the room is simply too small!
> At least you are not at risk catching a virus...
> There won't be any clink. Lucky glass...
plot(x, emo = "wine_glass", color = "red")
```
