Support for logical.

dereckmezquita · Jul 26, 2024 · e8283f2 · e8283f2
1 parent afceceb
commit e8283f2
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/interface.R b/R/interface.R
@@ -63,6 +63,10 @@ validate_property <- function(name, value, validator) {
     if (!is.numeric(value) || length(value) != 1) {
       stop(sprintf("Property '%s' must be a single numeric value", name), call. = FALSE)
     }
+  } else if (identical(validator, logical) || identical(validator, "logical")) {
+    if (!is.logical(value)) {
+      stop(sprintf("Property '%s' must be a logical value", name), call. = FALSE)
+    }
   } else if (is.function(validator)) {
     tryCatch({
       if (!validator(value)) {