Small fix

tesselle · Nov 6, 2024 · 7fe1558 · 7fe1558
1 parent fc2bb1f
commit 7fe1558
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/assert.R b/R/assert.R
@@ -273,7 +273,7 @@ assert_unique <- function(x) {
 #' @family checking methods
 #' @export
 assert_type <- function(x, expected, allow_empty = TRUE, allow_null = FALSE) {
-  if (is.null(x) && isTRUE(allow_null)) return(NULL)
+  if (is.null(x) && isTRUE(allow_null)) return(invisible(NULL))
   if (isFALSE(allow_empty)) assert_filled(x)
 
   arg <- deparse(substitute(x))

diff --git a/R/seek.R b/R/seek.R
@@ -3,14 +3,14 @@
 seek <- function(x, margin = 2, select = NULL, names = NULL, ...) {
   assert_filled(x)
   assert_length(margin, 1)
+  assert_type(names, "character", allow_null = TRUE)
 
   dm <- dim(x)[[margin]]
   nm <- dimnames(x)[[margin]]
   if (is.null(nm)) return(NULL)
 
   if (is.null(select)) {
     if (!is.null(names)) {
-      assert_type(names, "character")
       select <- function(i) match(names, i)
     } else {
       return(seq_len(dm))