set3 <- vetr_settings(result.list.size.init = 1, result.list.size.max = 8)

set4 <- vetr_settings(result.list.size.init = "hello", result.list.size.max = 8)

set5 <- vetr_settings(result.list.size.init = 1, result.list.size.max = "hello")

Setting `result.list.size.init` must be integer-like (is character).

Error in vet(1, 1, settings = set4) : 
  Setting `result.list.size.init` must be integer-like (is character).

Setting `result.list.size.max` must be integer-like (is character).

Error in vet(1, 1, settings = set5) : 
  Setting `result.list.size.max` must be integer-like (is character).

{base::sum(1:10)} is not TRUE (is "integer" instead of a "logical")

[1] "{base::sum(1:10)} is not TRUE (is \"integer\" instead of a \"logical\")"

{base::is.integer(identity)} is not TRUE (FALSE)

[1] "{base::is.integer(identity)} is not TRUE (FALSE)"

delayedAssign("x", stop("error 1"), assign.env = env1)

delayedAssign("x", stop("error 2"), assign.env = env2)

env0 <- list2env(list(x = TRUE), new.env())

`1` should be type "function" (is "integer")

[1] "`1` should be type \"function\" (is \"integer\")"

# Recognize as is expression (see also #100 above)

`identity(isTRUE)` is not TRUE (is "closure" instead of a "logical")

[1] "`identity(isTRUE)` is not TRUE (is \"closure\" instead of a \"logical\")"