Switch argument order to copy_names(from, to).

Author: jonovik

R/case.R

@@ -27,21 +27,21 @@ NULL
 #' @rdname case
 str_to_upper <- function(string, locale = "en") {
   check_string(locale)
-  copy_names(stri_trans_toupper(string, locale = locale), string)
+  copy_names(string, stri_trans_toupper(string, locale = locale))
 }
 #' @export
 #' @rdname case
 str_to_lower <- function(string, locale = "en") {
   check_string(locale)
-  copy_names(stri_trans_tolower(string, locale = locale), string)
+  copy_names(string, stri_trans_tolower(string, locale = locale))
 }
 #' @export
 #' @rdname case
 str_to_title <- function(string, locale = "en") {
   check_string(locale)
   out <- stri_trans_totitle(string,
                             opts_brkiter = stri_opts_brkiter(locale = locale))
-  copy_names(out, string)
+  copy_names(string, out)
 }
 #' @export
 #' @rdname case
@@ -51,5 +51,5 @@ str_to_sentence <- function(string, locale = "en") {
     string,
     opts_brkiter = stri_opts_brkiter(type = "sentence", locale = locale)
   )
-  copy_names(out, string)
+  copy_names(string, out)
 }

R/compat-purrr.R

@@ -10,7 +10,7 @@ map <- function(.x, .f, ...) {
   lapply(.x, .f, ...)
 }
 map_mold <- function(.x, .f, .mold, ...) {
-  copy_names(vapply(.x, .f, .mold, ..., USE.NAMES = FALSE), .x)
+  copy_names(.x, vapply(.x, .f, .mold, ..., USE.NAMES = FALSE))
 }
 map_lgl <- function(.x, .f, ...) {
   map_mold(.x, .f, logical(1), ...)

R/conv.R

@@ -15,5 +15,5 @@
 str_conv <- function(string, encoding) {
   check_string(encoding)
 
-  copy_names(stri_conv(string, encoding, "UTF-8"), string)
+  copy_names(string, stri_conv(string, encoding, "UTF-8"))
 }

R/escape.R

@@ -13,5 +13,5 @@
 #' str_detect(c("a", "."), str_escape("."))
 str_escape <- function(string) {
   out <- str_replace_all(string, "([.^$\\\\|*+?{}\\[\\]()])", "\\\\\\1")
-  copy_names(out, string)
+  copy_names(string, out)
 }

R/length.R

@@ -34,11 +34,11 @@
 #' # Because the second element is made up of a u + an accent
 #' str_sub(u, 1, 1)
 str_length <- function(string) {
-  copy_names(stri_length(string), string)
+  copy_names(string, stri_length(string))
 }
 
 #' @export
 #' @rdname str_length
 str_width <- function(string) {
-  copy_names(stri_width(string), string)
+  copy_names(string, stri_width(string))
 }

R/replace.R

@@ -182,7 +182,7 @@ fix_replacement_one <- function(x) {
 #' str_replace_na(c(NA, "abc", "def"))
 str_replace_na <- function(string, replacement = "NA") {
   check_string(replacement)
-  copy_names(stri_replace_na(string, replacement), string)
+  copy_names(string, stri_replace_na(string, replacement))
 }
 
 str_transform <- function(string, pattern, replacement) {

R/trim.R

@@ -24,11 +24,11 @@ str_trim <- function(string, side = c("both", "left", "right")) {
     right = stri_trim_right(string),
     both =  stri_trim_both(string)
   )
-  copy_names(out, string)
+  copy_names(string, out)
 }
 
 #' @export
 #' @rdname str_trim
 str_squish <- function(string) {
-  copy_names(stri_trim_both(str_replace_all(string, "\\s+", " ")), string)
+  copy_names(string, stri_trim_both(str_replace_all(string, "\\s+", " ")))
 }

R/utils.R

@@ -30,6 +30,6 @@ tr_ <- function(...) {
   enc2utf8(gettext(paste0(...), domain = "R-stringr"))
 }
 
-copy_names <- function(to, from) {
+copy_names <- function(from, to) {
   set_names(to, names(from))
 }

R/word.R

@@ -52,5 +52,5 @@ word <- function(string, start = 1L, end = start, sep = fixed(" ")) {
   starts <- mapply(function(word, loc) word[loc, "start"], words, start)
   ends <-   mapply(function(word, loc) word[loc, "end"], words, end)
 
-  copy_names(str_sub(string, starts, ends), string)
+  copy_names(string, str_sub(string, starts, ends))
 }

R/wrap.R

@@ -40,5 +40,5 @@ str_wrap <- function(string,
   out <- stri_wrap(string, width = width, indent = indent, exdent = exdent,
     whitespace_only = whitespace_only, simplify = FALSE)
   out <- vapply(out, str_c, collapse = "\n", character(1))
-  copy_names(out, string)
+  copy_names(string, out)
 }