The #fcase function from #rdatatable is such a pleasure to work with.

https://rdatatable.gitlab.io/data.table/reference/fcase.html

#Rstats