fix error for reorder missing prefix dot

Yunuuuu · Jan 12, 2025 · 3240b48 · 3240b48
1 parent 5ff1230
commit 3240b48
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/pair-links.R b/R/pair-links.R
@@ -57,14 +57,14 @@
 #' x
 #' @export
 pair_links <- function(..., .handle_missing = "error", .reorder = NULL) {
-    handle_missing <- arg_match0(.handle_missing, c("error", "remove"))
-    if (!is.null(reorder)) {
-        reorder <- arg_match0(reorder, c("hand1", "hand2"))
+    .handle_missing <- arg_match0(.handle_missing, c("error", "remove"))
+    if (!is.null(.reorder)) {
+        .reorder <- arg_match0(.reorder, c("hand1", "hand2"))
     }
     pairs <- rlang::dots_list(..., .ignore_empty = "all", .named = NULL)
     new_pair_links(
         lapply(pairs, as_pair_link, x_arg = "...", call = current_call()),
-        handle_missing = handle_missing, reorder = reorder
+        handle_missing = .handle_missing, reorder = .reorder
     )
 }