Replace setdiff with consistent implementation

epiverse-trace · Feb 5, 2025 · b51a9d6 · b51a9d6
1 parent 75f050f
commit b51a9d6
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/restore_tags.R b/R/restore_tags.R
@@ -31,8 +31,9 @@ restore_tags <- function(x, tags,
     stop("No matching tags provided.")
   }
 
-  lost_vars <- setdiff(tags, names(x))
-
+  # We do not use setdiff because R has become inconsistent for our purposes
+  # Since https://github.com/wch/r-source/commit/6dedb304cfd66f0e5775cdd5c0bae6340ac48e84 # nolint: line_length_linter.
+  lost_vars <- tags[!unlist(tags) %in% names(x)]
   if (lost_action != "none" && length(lost_vars) > 0) {
     lost_tags <- names(lost_vars)