R5テスト

library(methods)
yokkunsClass <- setRefClass(Class = "YokkunsClass", fields = list(id = "numeric", 
    name = "character"), method = list(hundredfold = function(x) {
    x * 100
}))

yokkuns <- yokkunsClass$new()
yokkuns$hundredfold(10)
## [1] 1000