Don't have ...names() available for all our R versions yet

rstudio · Sep 29, 2023 · f789629 · f789629
1 parent 3ef7867
commit f789629
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/pin-read-write.R b/R/pin-read-write.R
@@ -80,7 +80,8 @@ pin_write <- function(board, x,
                       tags = NULL,
                       force_identical_write = FALSE) {
   check_board(board, "pin_write", "pin")
-  if (!missing(...) && (is.null(...names()) || ...names()[[1]] == "")) {
+  dots <- list2(...)
+  if (!missing(...) && (is.null(names(dots)) || names(dots)[[1]] == "")) {
     cli::cli_abort('Arguments after the dots `...` must be named, like {.code type = "json"}.')
   }