fix common_vars .2

randrescastaneda · Mar 7, 2024 · b640170 · b640170
1 parent 9abcdd6
commit b640170
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/joyn-merge.R b/R/joyn-merge.R
@@ -252,7 +252,7 @@ joyn <- function(x,
   #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
   common_vars <- intersect(names(x), names(y))
-  if (!is.null(fixby$yby)) {
+  if (!(is.null(fixby$yby))) {
     common_vars <- common_vars[!(common_vars %in% fixby$yby)]
   } else {
     common_vars <- common_vars[!(common_vars %in% fixby$by)]