closes #40

NEWS.md

@@ -8,6 +8,7 @@
 * adds `detail()` to return a `data.frame` of details for a vector of columns of a `data.frame`
 * updates to file path finding functions (e.g., `list_files()`) to try to not search every file depending on desired searches (e.g., by full file paths or just base names)
 * adds `squash_vec()` to combined the names of a vector with repeated values
+* `set_names0(NULL)` no longer causes an error and returns `NULL` [#40](https://github.com/jmbarbone/mark/issues/40)
 
 # mark 0.2.0
 

R/names.R

@@ -29,12 +29,13 @@ sort_names <- function(x, numeric = FALSE) {
 #' @param x A vector of values
 #' @param nm A vector of names
 #' @return
-#' * `set_names0()`: `x` with `nm` values assigned to names
+#' * `set_names0()`: `x` with `nm` values assigned to names (if `x` is `NULL`, `NULL` is returned)
 #' * `remove_names()`: `x` without names
 #' * `names_switch()`: `character` vector of equal length `x` where names and values are switched
 #'
 #' @export
 set_names0 <- function(x, nm = x) {
+  if (is.null(x)) return(NULL)
   `names<-`(x, nm)
 }
 

tests/testthat/test-names.R

@@ -1,3 +1,7 @@
+test_that("set_names0() works", {
+  expect_null(set_names0(NULL))
+})
+
 test_that("names_switch() works", {
   x <- c(a = 1, b = 2, c = 3)
   y <- names(x)