From 264483381bff37b467254802454bff551fe0c0d2 Mon Sep 17 00:00:00 2001
From: Michael <50142889+Mike-Hanna@users.noreply.github.com>
Date: Wed, 21 Aug 2024 13:51:43 -0400
Subject: [PATCH 1/2] Update utils.r

remove duplicate function `keep_last` from utils
---
 R/utils.r | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/R/utils.r b/R/utils.r
index c75c31c5..a2cfaef4 100644
--- 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()

From 13b394f898f39ae0a9d57e7aa18612b0530189a8 Mon Sep 17 00:00:00 2001
From: Michael <50142889+Mike-Hanna@users.noreply.github.com>
Date: Wed, 21 Aug 2024 13:57:30 -0400
Subject: [PATCH 2/2] Update utils.r

format fix
---
 R/utils.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.r b/R/utils.r
index a2cfaef4..1fd26ab1 100644
--- 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)]
 }