Add allow_na to check_logical() (#1823)

Author: jonthegeek

R/standalone-types-check.R

@@ -9,6 +9,9 @@
 #
 # ## Changelog
 #
+# 2025-09-19:
+# - `check_logical()` gains an `allow_na` argument (@jonthegeek, #1724)
+#
 # 2024-08-15:
 # - `check_character()` gains an `allow_na` argument (@martaalcalde, #1724)
 #
@@ -538,12 +541,20 @@ check_character <- function(
 check_logical <- function(
   x,
   ...,
+  allow_na = TRUE,
   allow_null = FALSE,
   arg = caller_arg(x),
   call = caller_env()
 ) {
   if (!missing(x)) {
     if (is_logical(x)) {
+      if (!allow_na && any(is.na(x))) {
+        abort(
+          sprintf("`%s` can't contain NA values.", arg),
+          arg = arg,
+          call = call
+        )
+      }
       return(invisible(NULL))
     }
     if (allow_null && is_null(x)) {

tests/testthat/_snaps/standalone-types-check.md

@@ -489,6 +489,12 @@
       <error/rlang_error>
       Error in `checker()`:
       ! `foo` must be a logical vector or `NULL`, not a list.
+    Code
+      err(checker(NA, check_logical, allow_na = FALSE))
+    Output
+      <error/rlang_error>
+      Error in `checker()`:
+      ! `foo` can't contain NA values.
 
 # non-numeric types are not numbers
 

tests/testthat/test-standalone-types-check.R

@@ -188,6 +188,7 @@ test_that("`check_logical()` checks", {
     err(checker(NA_integer_, check_logical))
     err(checker(1, check_logical))
     err(checker(list("foo", "bar"), check_logical, allow_null = TRUE))
+    err(checker(NA, check_logical, allow_na = FALSE))
   })
 })