Merge pull request #507 from SebKrantz/development

Fix bug in full join reduced to left join.
SebKrantz · Dec 7, 2023 · 990a6fa · 990a6fa
2 parents e82a9a7 + 22e25c1
commit 990a6fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/join.R b/R/join.R
@@ -223,7 +223,7 @@ join <- function(x, y,
         }
       } else { # If all elements of table are matched, this is simply a left join
         how <- "left"
-        y_res <- .Call(C_subsetDT, y, m, iyon, if(count) attr(m, "N.nomatch") else TRUE) # anyNA(um) ??
+        y_res <- .Call(C_subsetDT, y, m, seq_along(y)[-iyon], if(count) attr(m, "N.nomatch") else TRUE) # anyNA(um) ??
         c(x, y_res)
       }
     },