Merge pull request #208 from iNZightVIT/hotfix/1.13.3

Release 1.13.3

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: iNZightTools
 Type: Package
 Title: Tools for 'iNZight'
-Version: 1.13.1
+Version: 1.13.3
 Depends: R (>= 4.0)
 Imports:
     dplyr,

NEWS.md

@@ -1,3 +1,7 @@
+# iNZightTools 1.13.3
+
+- `read_text()` function replaces spaces with underscores in column names
+
 # iNZightTools 1.13.2
 
 - add global options to set/override default comment character (this will allow Lite to change the default without changing the package's default behaviour; default set as # at load time)

R/read_text.R

@@ -10,14 +10,20 @@
 #' @author Tom Elliott
 #' @export
 read_text <- function(txt, delim = "\t", ...) {
-    if (txt == "clipboard")
+    if (txt == "clipboard") {
         txt <- readr::clipboard()
+    }
 
-    if (utils::packageVersion('readr') < numeric_version('2.0.0')) {
+    if (utils::packageVersion("readr") < numeric_version("2.0.0")) {
         d <- readr::read_delim(I(txt), delim = delim)
     } else {
         d <- readr::read_delim(I(txt), delim = delim, show_col_types = FALSE)
     }
 
-    d %>% dplyr::mutate_if(is.character, as.factor)
+    d <- d |> dplyr::mutate_if(is.character, as.factor)
+
+    if (any(grepl(" ", colnames(d)))) {
+        colnames(d) <- gsub(" ", "_", colnames(d))
+    }
+    d
 }

tests/testthat/test_read_text.R

@@ -11,3 +11,13 @@ test_that("Tab-delim text reads", {
         readr::read_tsv(I(text), show_col_types = FALSE) %>% dplyr::mutate(y = as.factor(y))
     )
 })
+
+text <- "var 1\tvar 2
+1\t2
+3\t4
+5\t6
+"
+test_that("Spaces in names converted to underscores", {
+    d <- read_text(text)
+    expect_equal(colnames(d), c("var_1", "var_2"))
+})