# NOT RUN {
## Used in inheritence.
setClass('SuperDataTable', contains='data.table')
## Used in a slot
setClass('Something', representation(x='character', dt='data.table'))
x <- new("Something", x='check', dt=data.table(a=1:10, b=11:20))
# }
Run the code above in your browser using DataLab