using get_code_attr

gogonzo · gogonzo · commit e93e0979e40d · 2024-11-13T13:17:36.000+01:00
diff --git a/R/qenv-c.R b/R/qenv-c.R
@@ -89,8 +89,8 @@ c.qenv <- function(...) {
         stop(join_validation)
       }
 
-      x_id <- vapply(x@code, attr, which = "id", integer(1))
-      y_id <- vapply(y@code, attr, which = "id", integer(1))
+      x_id <- get_code_attr(x, "id")
+      y_id <- get_code_attr(y, "id")
       x@code <- c(x@code, y@code[!y_id %in% x_id])
 
       # insert (and overwrite) objects from y to x

Original file line number	Diff line number	Diff line change
`@@ -89,8 +89,8 @@ c.qenv <- function(...) {`
`89`	`89`	`stop(join_validation)`
`90`	`90`	`}`
`91`	`91`
`92`		`- x_id <- vapply(x@code, attr, which = "id", integer(1))`
`93`		`- y_id <- vapply(y@code, attr, which = "id", integer(1))`
	`92`	`+ x_id <- get_code_attr(x, "id")`
	`93`	`+ y_id <- get_code_attr(y, "id")`
`94`	`94`	`x@code <- c(x@code, y@code[!y_id %in% x_id])`
`95`	`95`
`96`	`96`	`# insert (and overwrite) objects from y to x`