面向对象编程工作组 （此存储库是R包） 这些想法已在此存储库中托管的R7包中实现。 类和对象 library( R7 ) range <- class_new( " range " , constructor = function ( start , end ) { object_new( start = start , end = end ) }, validator = function ( x ) { if ( x end < x start