Additional check functions

NAMESPACE

@@ -57,6 +57,7 @@ export(schedule_decay_time)
 export(schedule_step)
 export(set_learn_rate)
 export(tunable)
+import(rlang)
 import(torch)
 importFrom(dplyr,"%>%")
 importFrom(generics,tunable)

R/aaa.R

@@ -1,4 +1,5 @@
 #' @import torch
+#' @import rlang
 #' @importFrom stats complete.cases model.matrix terms
 #' @importFrom utils globalVariables
 #'

R/checks.R

@@ -1,3 +1,43 @@
+# Additional type checkers designed for testing argument values.
+
+check_single_logical <- function(x, call = rlang::caller_env()) {
+ cl <- match.call()
+ arg_nm <- as.character(cl$x)
+ msg <- "{.arg {arg_nm}} should be a single logical value, not {brulee:::obj_type_friendly(x)}."
+ if (!is.logical(x)) {
+  cli::cli_abort(msg, call = call)
+ }
+ if (length(x) > 1 || any(is.na(x))) {
+  cli::cli_abort(msg, call = call)
+ }
+ invisible(x)
+}
+
+check_number_whole_vec <- function(x, call = rlang::caller_env(), ...) {
+ cl <- match.call()
+ arg <- as.character(cl$x)
+
+ for (i in x) {
+  rlang:::check_number_whole(i, arg = arg, call = call, ...)
+ }
+ x <- as.integer(x)
+ invisible(x)
+}
+
+check_number_decimal_vec <- function(x, call = rlang::caller_env(), ...) {
+ cl <- match.call()
+ arg <- as.character(cl$x)
+
+ for (i in x) {
+  rlang:::check_number_decimal(i, arg = arg, call = call, ...)
+ }
+ invisible(x)
+}
+
+# ------------------------------------------------------------------------------
+# soon to be replaced checkers
+
+
 check_missing_data <- function(x, y, fn = "some function", verbose = FALSE) {
   compl_data <- complete.cases(x, y)
   if (any(!compl_data)) {