Don't trim ws in repair_names.

Closes #47

R/repair-names.R

@@ -1,12 +1,12 @@
 #' Repair object names.
 #'
 #' \code{repair_names} ensures its input has non-missing and
-#' unique names. It also strips any leading or trailing spaces.
-#' Valid names are left as is.
+#' unique names (duplicated names get a numeric suffix). Valid names are
+#' left as is.
 #'
 #' @param x A named vector.
 #' @param prefix A string, the prefix to use for new column names.
-#' @param sep A string, inserted between the column name and de-duplicating
+#' @param sep A string inserted between the column name and de-duplicating
 #'    number.
 #' @return \code{x} with valid names.
 #' @export
@@ -41,8 +41,9 @@ repair_names <- function(x, prefix = "V", sep = "") {
 
 init_names <- function(x) {
   xnames <- names(x)
-  if (is.null(xnames))
+  if (is.null(xnames)) {
     rep("", length(x))
-  else
-    ifelse(is.na(xnames), "", trim_ws(xnames))
+  } else {
+    ifelse(is.na(xnames), "", xnames)
+  }
 }

tests/testthat/test-repair_names.R

@@ -45,8 +45,6 @@ test_that("repair various name problems", {
 
     # ensure we start with a "bad" state
     old_names <- colnames(dat)
-    if (!is.null(old_names))
-      old_names <- trim_ws(old_names)
     expect_true(is.null(old_names) ||
                   any(table(old_names) > 1) ||
                   any(old_names == '' | is.na(old_names)) ||