Summary method for an object of class "apero".
# S3 method for apero
summary(object, ...)An object of class "apero".
Further arguments passed from other methods.
Invisibly, the number of clinks is returned.
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...
x2 <- apero(2, 1)
summary(x2)
#> The apero takes place in a 2m 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...