Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@87086 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Sep 2, 2024 · 5beb631 · 5beb631
1 parent 5557c3e
commit 5beb631
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/library/base/R/sets.R b/src/library/base/R/sets.R
@@ -40,16 +40,15 @@ function(x, y)
  (length(dy <- duplicated(y)) == length(y))) {
  if(!isa(x, cy))
  x <- c(y0, x)
+ x <- x[!dx]
+ y <- y[!dy]
  } else {
  x <- as.vector(x)
+ x <- x[!duplicated(x)]
  y <- as.vector(y)
- y0 <- y[integer()]
- dx <- duplicated(x)
- dy <- duplicated(y)
+ y <- y[!duplicated(y)]
  }
- x <- x[!dx]
- y <- y[!dy & (match(y, x, 0L) == 0L)]
- c(x, y)
+ c(x, y[match(y, x, 0L) == 0L])
 }
 
 intersect <-