From 18611e07d9779cb76ce4c191a6caf7ecca242540 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 22 Jun 2023 10:45:31 -0700 Subject: [PATCH] use anyDuplicated() over unique() equivalent --- R/read.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/read.R b/R/read.R index 064384b2e..e25aa75b7 100644 --- a/R/read.R +++ b/R/read.R @@ -310,7 +310,7 @@ abbreviate_shapefile_names = function(x) { if (length(wh. <- grep("\\.", fld_names) > 0)) fld_names[wh.] <- gsub("\\.", "_", fld_names[wh.]) - if (length(fld_names) != length(unique(fld_names))) + if (anyDuplicated(fld_names)) stop("Non-unique field names") # nocov names(x) = fld_names