Turn empty vector entries to NA

MilesMcBain · Nov 9, 2020 · e569c3b · e569c3b
1 parent 03ea5d9
commit e569c3b
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 0 deletions.
diff --git a/R/clip.R b/R/clip.R
@@ -23,6 +23,9 @@ read_clip_or_editor <- function() {
   x
 }
 
+
+
+
 read_rstudio_editor <- function() {
   if (!rstudioapi::hasFun("getSourceEditorContext")) {
     return("")

diff --git a/R/vector_paste.R b/R/vector_paste.R
@@ -181,5 +181,11 @@ parse_vector <- function(input_vector){
   input_vector <- ifelse(grepl(pattern = "(^\".*\"$)|(^\'.*\'$)", input_vector),
                          yes = substr(input_vector, 2, nchar(input_vector)-1),
                          no = input_vector)
+
+  # set empty entries to NA
+  NA_entry <- function(x) {
+    !nzchar(trimws(x)) | x == "NA"
+  } 
+  input_vector[NA_entry(input_vector)] <- NA
   input_vector
 }
diff --git a/tests/testthat/test_vector.R b/tests/testthat/test_vector.R
@@ -45,6 +45,20 @@ test_that("vector_construct handles numeric correctly ", {
   },
   "c(7L, 8L, 7L, 6L, 6L, NA, 6L, 9L)\n"
   )
+  expect_equal({
+    suppressWarnings(clipr::write_clip(content = c(7,
+                                                   8,
+                                                   7,
+                                                   6,
+                                                   6,
+                                                   "",
+                                                   6,
+                                                   9))
+    )
+    vector_construct()
+  },
+  "c(7L, 8L, 7L, 6L, 6L, NA, 6L, 9L)\n"
+  )
 })