fix #17

mlr-org · Feb 6, 2019 · afb60e1 · afb60e1
1 parent 664eb6f
commit afb60e1
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/named_list.R b/R/named_list.R
@@ -9,7 +9,7 @@
 #' @examples
 #' named_list(c("a", "b"))
 #' named_list(c("a", "b"), init = 1)
-named_list = function(nn, init = NULL) {
+named_list = function(nn = character(0L), init = NULL) {
   assert_character(nn, any.missing = FALSE)
   x = vector("list", length(nn))
   if (!is.null(init))

diff --git a/R/zzz.R b/R/zzz.R
@@ -1,8 +1,7 @@
 #' @rawNamespace import(data.table, except = transpose)
 #' @import checkmate
-#' @importFrom utils head
+#' @importFrom utils head adist
 #' @importFrom stats setNames
-#' @importFrom utils adist
 NULL
 
 .onLoad = function(libname, pkgname) { #nocov start

diff --git a/man/named_list.Rd b/man/named_list.Rd
diff --git a/tests/testthat/test_named_list.R b/tests/testthat/test_named_list.R
@@ -2,6 +2,7 @@ context("named_list")
 
 test_that("named_list", {
   expect_equal(named_list(character()), setNames(vector("list", 0), nm = character()))
+  expect_equal(named_list(), setNames(vector("list", 0), nm = character()))
   expect_equal(named_list("a"), list(a=NULL))
   expect_equal(named_list(c("a", "b")), list(a=NULL, b=NULL))
   expect_equal(named_list(c("a", "b"), 1), list(a=1, b=1))