Fix bug in verify_attr. Closes issue #1720.

trekonom · trekonom · commit dfa2c6adf78e · 2020-06-07T20:27:32.000+02:00
diff --git a/R/utils.R b/R/utils.R
@@ -521,7 +521,7 @@ verify_attr <- function(proposed, schema, layoutAttr = FALSE) {
     
     # do the same for "sub-attributes"
     if (identical(role, "object") && is.recursive(proposed[[attr]])) {
-      proposed[[attr]] <- verify_attr(proposed[[attr]], schema[[attr]], layoutAttr = layoutAttr)
+      proposed[[attr]] <- verify_attr(proposed[[attr]], attrSchema, layoutAttr = layoutAttr)
     }
   }
   

Original file line number	Diff line number	Diff line change
`@@ -521,7 +521,7 @@ verify_attr <- function(proposed, schema, layoutAttr = FALSE) {`
`521`	`521`
`522`	`522`	`# do the same for "sub-attributes"`
`523`	`523`	`if (identical(role, "object") && is.recursive(proposed[[attr]])) {`
`524`		`- proposed[[attr]] <- verify_attr(proposed[[attr]], schema[[attr]], layoutAttr = layoutAttr)`
	`524`	`+ proposed[[attr]] <- verify_attr(proposed[[attr]], attrSchema, layoutAttr = layoutAttr)`
`525`	`525`	`}`
`526`	`526`	`}`
`527`	`527`