save some memory

vincentarelbundock · Sep 7, 2023 · 43e4970 · 43e4970
1 parent ee22389
commit 43e4970
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/countrycode.R b/R/countrycode.R
@@ -199,11 +199,11 @@ countrycode <- function(sourcevar, origin, destination, warn = TRUE, nomatch = N
  # unicode.symbol breaks uppercase on Windows R-devel 2022-02-02; rejected by CRAN
  if(inherits(origin_vector, 'character') & !grepl('country|unicode.symbol', origin)){
  # only apply toupper() on unique values and match after.
- # much faster than applying toupper() on the whole vector when vector is very large
+ # much faster than applying toupper() on the whole vector
+ # when vector is very large
  uniques = unique(origin_vector)
  uppercase = toupper(uniques)
- names(uppercase) = uniques
- origin_vector = unname(uppercase[match(origin_vector, names(uppercase))])
+ origin_vector = unname(uppercase[match(origin_vector, uniques)])
  }
  }