diff --git a/R/utils.R b/R/utils.R index 8a4fa8e..0a48a09 100644 --- 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] }