Overview
The {apero} package has three purposes. The last one of course is purely recreational and not at all serious.
- Its “packaging.R” script explains how to build a simple package using “usethis” and “devtools”.
- It shows how to use S3 object oriented programming.
- 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?
Usage
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)
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")
