change default max_length

set to Inf instead of 1, any limit now has to be specified

Author: grlloyd

R/entity_class.R

@@ -36,7 +36,7 @@ entity<-setClass(
         description='no description provided',
         value='',
         type='character',
-        max_length=1
+        max_length=Inf
     ),
     validity = function(object) {
         check_length=length(value(object)) <= max_length(object)
@@ -83,9 +83,6 @@ setMethod(f="initialize",
                 .Object@value=new(.Object@type)
             }
         }
-        if ((.Object@type %in% c('data.frame','formula','matrix')) && !('max_length' %in% names(L))) {
-            .Object@max_length=Inf
-        }
 
         validObject(.Object)
         return(.Object)