add default values for max_length in certain cases

grlloyd · grlloyd · commit bbb1886a2ffd · 2019-09-09T16:34:39.000+01:00
diff --git a/R/entity_class.R b/R/entity_class.R
@@ -84,8 +84,10 @@ setMethod(f="initialize",
             }
         }
         if ((.Object@type %in% c('data.frame','formula','matrix')) && !('max_length' %in% names(L))) {
-            validObject(.Object)
+            .Object@max_length=Inf
         }
+
+        validObject(.Object)
         return(.Object)
     }
 )

Original file line number	Diff line number	Diff line change
`@@ -84,8 +84,10 @@ setMethod(f="initialize",`
`84`	`84`	`}`
`85`	`85`	`}`
`86`	`86`	`if ((.Object@type %in% c('data.frame','formula','matrix')) && !('max_length' %in% names(L))) {`
`87`		`- validObject(.Object)`
	`87`	`+ .Object@max_length=Inf`
`88`	`88`	`}`
	`89`	`+`
	`90`	`+ validObject(.Object)`
`89`	`91`	`return(.Object)`
`90`	`92`	`}`
`91`	`93`	`)`