feat: add as_callbacks.NULL

Author: be-marc

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method(as.data.table,Dictionary)
 S3method(as_callback,Callback)
+S3method(as_callbacks,"NULL")
 S3method(as_callbacks,Callback)
 S3method(as_callbacks,list)
 S3method(discard,data.frame)

R/Callback.R

@@ -136,6 +136,12 @@ as_callbacks = function(x, clone = FALSE, ...) { # nolint
   UseMethod("as_callbacks")
 }
 
+#' @rdname as_callback
+#' @export
+as_callbacks.NULL = function(x, ...) { # nolint
+  list()
+}
+
 #' @rdname as_callback
 #' @export
 as_callbacks.list = function(x, clone = FALSE, ...) { # nolint
@@ -221,7 +227,8 @@ clbks = function(.keys) {
 #'
 #' @return [Callback] | List of [Callback]s.
 #' @export
-assert_callback = function(callback) {
+assert_callback = function(callback, null_ok = FALSE) {
+  if (null_ok && is.null(callback)) return(invisible(NULL))
   assert_class(callback, "Callback")
   invisible(callback)
 }
@@ -230,6 +237,5 @@ assert_callback = function(callback) {
 #' @param callbacks (list of [Callback]).
 #' @rdname assert_callback
 assert_callbacks = function(callbacks) {
-  assert_list(callbacks)
-  if (length(callbacks)) invisible(lapply(callbacks, assert_callback)) else invisible(NULL)
+  invisible(lapply(callbacks, assert_callback))
 }