library(human) me <- life() %>% summarize(work = data.science, hobby = list(bike, cosplay), addiction = R) print(me)