Testing use of validate_if inside of a box

tester_script.R

box::use(./validate_if_box[...], data.table[...], data.validator[...])

test_tbl <- data.table(a = 1:5, b = 6:10)
test_schema <- data.table(name = c("a", "b"), class = c("numeric", "numeric"))

validate_columns_exist(validate(test_tbl), test_schema)

validate_if_box.R

box::use(data.table[...], data.validator[...], assertr[...])

#' @export
validate_columns_exist <- function (data, schema) {
  validate_if(
    data,
    # Things only work if I change this to assertr::has_all_names(!!!schema$name), defying the point of box.
    has_all_names(!!!schema$name),
    description = "Required columns exist"
  )
}