diff --git a/R/CodeAndRoll2.R b/R/CodeAndRoll2.R
index 5dc4416..4f72fcc 100644
--- a/R/CodeAndRoll2.R
+++ b/R/CodeAndRoll2.R
@@ -835,7 +835,7 @@ table_decreasing_hybrid <- function(vec, first_elements = FALSE, useNA = "ifany"
 #' @export
 #' @examples getCategories(c("A" = 1, "B" = 1, "C" = 2, 3))
 getCategories <- function(named_categ_vec) {
-  named_categ_vec[names(unique(named_categ_vec))]
+  named_categ_vec[!duplicated(named_categ_vec)]
 }