add default values for max_length in certain cases

grlloyd · grlloyd · commit 58d9f51eedb1 · 2019-09-09T16:20:15.000+01:00
formula, data frame, matrix
diff --git a/R/entity_class.R b/R/entity_class.R
@@ -83,7 +83,9 @@ setMethod(f="initialize",
                 .Object@value=new(.Object@type)
             }
         }
-        validObject(.Object)
+        if ((.Object@type %in% c('data.frame','formula','matrix')) && !('max_length' %in% names(L))) {
+            validObject(.Object)
+        }
         return(.Object)
     }
 )

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