closes #230

gogonzo · gogonzo · commit 7b0acc0fab1c · 2024-11-12T15:42:19.000+01:00
diff --git a/R/qenv-c.R b/R/qenv-c.R
@@ -89,7 +89,9 @@ c.qenv <- function(...) {
         stop(join_validation)
       }
 
-      x@code <- union(x@code, y@code)
+      x_id <- vapply(x@code, attr, which = "id", integer(1))
+      y_id <- vapply(y@code, attr, which = "id", integer(1))
+      x@code <- c(x@code, y@code[!y_id %in% x_id])
 
       # insert (and overwrite) objects from y to x
       x@.xData <- rlang::env_clone(x@.xData, parent = parent.env(.GlobalEnv))

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