Fill in missing arg for arg_match in list_field_domains

elipousson · elipousson · commit 30f33886c009 · 2025-02-02T01:06:20.000-05:00
diff --git a/R/utils.R b/R/utils.R
@@ -280,7 +280,7 @@ list_field_domains <- function(x,
   domains <- rlang::set_names(fields[["domain"]], nm)
 
   if (!is.null(field)) {
-    field <- rlang::arg_match(nm, multiple = TRUE, error_call = call)
+    field <- rlang::arg_match(field, nm, multiple = TRUE, error_call = call)
     domains <- domains[nm %in% field]
   }
 

Original file line number	Diff line number	Diff line change
`@@ -280,7 +280,7 @@ list_field_domains <- function(x,`
`280`	`280`	`domains <- rlang::set_names(fields[["domain"]], nm)`
`281`	`281`
`282`	`282`	`if (!is.null(field)) {`
`283`		`- field <- rlang::arg_match(nm, multiple = TRUE, error_call = call)`
	`283`	`+ field <- rlang::arg_match(field, nm, multiple = TRUE, error_call = call)`
`284`	`284`	`domains <- domains[nm %in% field]`
`285`	`285`	`}`
`286`	`286`