diff --git a/R/subscript-loc.R b/R/subscript-loc.R index 78f9c95be..5df54e875 100644 --- a/R/subscript-loc.R +++ b/R/subscript-loc.R @@ -158,8 +158,8 @@ vec_as_location2_result <- function(i, missing, negative, arg) { - allow_missing <- arg_match(missing, c("error", "propagate")) == "propagate" - allow_negative <- arg_match(negative, c("error", "ignore")) == "ignore" + allow_missing <- missing == "propagate" + allow_negative <- negative == "ignore" result <- vec_as_subscript2_result( i = i, diff --git a/R/subscript.R b/R/subscript.R index b300b311d..5d4e7ba0d 100644 --- a/R/subscript.R +++ b/R/subscript.R @@ -75,9 +75,6 @@ vec_as_subscript2_result <- function(i, logical = "cast", numeric = "cast", character = "cast") { - logical <- arg_match(logical, c("cast", "error")) - numeric <- arg_match(numeric, c("cast", "error")) - character <- arg_match(character, c("cast", "error")) result <- vec_as_subscript_result( i,