Add assert_environment()

Author: torfason

NAMESPACE

@@ -20,6 +20,7 @@ export(assert_day)
 export(assert_dnumber)
 export(assert_dots_empty)
 export(assert_double)
+export(assert_environment)
 export(assert_factor)
 export(assert_flag)
 export(assert_int)
@@ -60,6 +61,7 @@ importFrom(checkmate,check_data_frame)
 importFrom(checkmate,check_data_table)
 importFrom(checkmate,check_date)
 importFrom(checkmate,check_double)
+importFrom(checkmate,check_environment)
 importFrom(checkmate,check_factor)
 importFrom(checkmate,check_flag)
 importFrom(checkmate,check_int)

R/assertions.R

@@ -4,7 +4,7 @@
 #'   check_numeric check_logical check_character check_raw check_date
 #'   check_integerish check_complex check_factor qtest test_integer
 #'   check_list check_data_frame check_data_table check_tibble
-#'   check_scalar check_atomic
+#'   check_scalar check_atomic check_environment
 NULL
 
 #' @importFrom rlang arg_match seq2 abort
@@ -391,3 +391,10 @@ assert_choice <- function(x, choices, ...) {
   invisible(x)
 }
 
+#' @rdname checkmate_rlang_values
+#' @export
+assert_environment <- function(x,  ...) {
+  if (!isTRUE(check_environment(x, ...)))
+    rlang::abort(check_environment(x, ...))
+  invisible(x)
+}