`list(1, 2, 3)` is not TRUE (is "list" instead of a "logical")

[1] "`list(1, 2, 3)` is not TRUE (is \"list\" instead of a \"logical\")"

vet(.(c("hello world", "goodbye moon")), 1:3)

`c("hello world", "goodbye moon")` is not TRUE (is chr [1:2]: "hello world" ...)

[1] "`c(\"hello world\", \"goodbye moon\")` is not TRUE (is chr [1:2]: \"hello world\" ...)"

`1.4` should be `NULL`, or type "integer-like" (is "double")

[1] "`1.4` should be `NULL`, or type \"integer-like\" (is \"double\")"

vet(INT.1 || NULL || character(3L), 1.2)

`1.2` should be `NULL`, type "character", or type "integer-like" (is "double")

[1] "`1.2` should be `NULL`, type \"character\", or type \"integer-like\" (is \"double\")"

vet(INT.1 || NULL || character(3L), letters)

- `letters` should be `NULL`, or type "integer-like" (is "character")

[1] "At least one of these should pass:"                                         
[2] "  - `length(letters)` should be 3 (is 26)"                                  
[3] "  - `letters` should be `NULL`, or type \"integer-like\" (is \"character\")"

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(1:16, 
    nrow = 4))

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(1:16, 
    nrow = 2))

At least one of these should pass:
- `matrix(1:16, nrow = 2)` should be `NULL` (is "integer")
- `nrow(matrix(1:16, nrow = 2)) == ncol(matrix(1:16, nrow = 2))` is not TRUE (FALSE)

[1] "At least one of these should pass:"                                                    
[2] "  - `matrix(1:16, nrow = 2)` should be `NULL` (is \"integer\")"                        
[3] "  - `nrow(matrix(1:16, nrow = 2)) == ncol(matrix(1:16, nrow = 2))` is not TRUE (FALSE)"

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(runif(16), 
    nrow = 4))

`matrix(runif(16), nrow = 4)` should be `NULL`, or type "integer-like" (is "double")

[1] "`matrix(runif(16), nrow = 4)` should be `NULL`, or type \"integer-like\" (is \"double\")"

# custom expression partially defined in parent env

local({
    exp.a <- quote(all(. < 0))
    vet(exp.a, -(1:3))
})