Fix logic error in shadow test

mrc-ide · Oct 10, 2024 · 78eaa6a · 78eaa6a
1 parent ff5e4ab
commit 78eaa6a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/dsl-parse.R b/R/dsl-parse.R
@@ -117,9 +117,9 @@ dsl_parse_check_fixed <- function(exprs, fixed, call) {
   }
 
   name <- vcapply(exprs, "[[", "name")
-  err <- match(name, names(fixed))
-  if (length(err) > 0) {
-    eq <- exprs[[err[[1]]]] # just first is easiest to report on
+  err <- name %in% names(fixed)
+  if (any(err)) {
+    eq <- exprs[[which(err)[[1]]]]
     dsl_parse_error(
       "Value '{eq$name}' in 'fixed' is shadowed by {eq$type}",
       "E207", eq$expr, call)