Update R/countrycode.R

Co-authored-by: CJ Yetman <[email protected]>
vincentarelbundock · Sep 7, 2023 · efa0ff6 · efa0ff6
1 parent 43e4970
commit efa0ff6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/countrycode.R b/R/countrycode.R
@@ -201,9 +201,9 @@ countrycode <- function(sourcevar, origin, destination, warn = TRUE, nomatch = N
             # only apply toupper() on unique values and match after.
             # much faster than applying toupper() on the whole vector
             # when vector is very large
-            uniques = unique(origin_vector)
-            uppercase = toupper(uniques)
-            origin_vector = unname(uppercase[match(origin_vector, uniques)])
+            uniques <- unique(origin_vector)
+            uppercase <- toupper(uniques)
+            origin_vector <- unname(uppercase[match(origin_vector, uniques)])
         }
     }