Update utils.r

remove duplicate function `keep_last` from utils
r-lib · Aug 21, 2024 · 2644833 · 2644833
1 parent df11e21
commit 2644833
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/R/utils.r b/R/utils.r
@@ -55,7 +55,7 @@ compact <- function(x) {
 
 is_empty <- function(x) length(x) == 0
 
-keep_last <- function(...) {
+  keep_last <- function(...) {
   x <- c(...)
   x[!duplicated(names(x), fromLast = TRUE)]
 }
@@ -68,11 +68,6 @@ named_vector <- function(title, x) {
   cat(bullets, sep = "\n")
 }
 
-keep_last <- function(...) {
-  x <- c(...)
-  x[!duplicated(names(x), fromLast = TRUE)]
-}
-
 find_cert_bundle <- function() {
   if (.Platform$OS.type != "windows") {
     return()