add test

R/data_rename.R

@@ -20,9 +20,9 @@
 #'     vector using `<new name> = "<old name>"` and argument `replacement` will
 #'     be ignored then).
 #' @param replacement Character vector. Can be one of the following:
-#'   - A character vector that indicates the new name of the columns selected in
-#'     `pattern`. `pattern` and `replacement` must be of the same length.
-#'   - `NULL`, in which case column are numbered in sequential order.
+#'   - A character vector that indicates the new names of the columns selected
+#'     in `pattern`. `pattern` and `replacement` must be of the same length.
+#'   - `NULL`, in which case columns are numbered in sequential order.
 #'   - A string (i.e. character vector of length 1) with a "curl" styled pattern.
 #'     Currently supported tokens are `{col}` and `{n}`. `{col}` will be replaced
 #'     by the column name, i.e. the corresponding value in `pattern`. `{n}` will
@@ -34,7 +34,7 @@
 #'       replacement = "new_name_from_{col}"
 #'     )
 #'     ```
-#'     would returns new column names `new_name_from_am` and `new_name_from__vs`.
+#'     would returns new column names `new_name_from_am` and `new_name_from_vs`.
 #'     See 'Examples'.
 #'
 #' If `pattern` is a named vector, `replacement` is ignored.

tests/testthat/test-data_rename.R

@@ -140,3 +140,14 @@ test_that("data_rename preserves attributes", {
 
   expect_named(a1, names(a2))
 })
+
+
+# curl-styled pattern --------------------------
+
+test_that("data_rename curl-style", {
+  data(mtcars)
+  out <- data_rename(mtcars[1:3], c("mpg", "cyl", "disp"), "formerly_{col}")
+  expect_named(out, c("formerly_mpg", "formerly_cyl", "formerly_disp"))
+  out <- data_rename(mtcars[1:3], c("mpg", "cyl", "disp"), "{col}_is_column_{n}")
+  expect_named(out, c("mpg_is_column_1", "cyl_is_column_2", "disp_is_column_3"))
+})