Use arg_match0 for simple cases

Author: olivroy

R/io.R

@@ -19,7 +19,7 @@ transform_utf8 <- function(path, fun, dry) {
 #'   styling are not identical.
 #' @keywords internal
 transform_utf8_one <- function(path, fun, dry) {
-  rlang::arg_match(dry, c("on", "off", "fail"))
+  rlang::arg_match0(dry, c("on", "off", "fail"))
   rlang::try_fetch(
     {
       file_with_info <- read_utf8(path)

R/testing.R

@@ -237,7 +237,7 @@ n_times_faster_with_cache <- function(x1, x2 = x1, ...,
                                       fun = styler::style_text,
                                       n = 3L,
                                       clear = "always") {
-  rlang::arg_match(clear, c("always", "final", "never", "all but last"))
+  rlang::arg_match0(clear, c("always", "final", "never", "all but last"))
 
   out <- purrr::map(1L:n, n_times_faster_bench,
     x1 = x1, x2 = x2, fun = fun,

R/ui-caching.R

@@ -93,7 +93,7 @@ NULL
 #' @family cache managers
 #' @export
 cache_info <- function(cache_name = NULL, format = "both") {
-  rlang::arg_match(format, c("tabular", "lucid", "both"))
+  rlang::arg_match0(format, c("tabular", "lucid", "both"))
   path_cache <- cache_find_path(cache_name)
   files <- list.files(path_cache, full.names = TRUE)
   file_info <- file.info(files)