cryptic object-oriented R code