`vet/vetr` usage error: argument `settings` names are not in format  produced by `vetr_settings`.

Error in alike(1, 2, settings = setNames(vector("list", 16), letters[1:16])) : 
  `vet/vetr` usage error: argument `settings` names are not in format  produced by `vetr_settings`.

alike(1, 2, settings = vector("list", 16))

`vet/vetr` usage error: argument `settings` must be a named list as produced by `vetr_settings`.

Error in alike(1, 2, settings = vector("list", 16)) : 
  `vet/vetr` usage error: argument `settings` must be a named list as produced by `vetr_settings`.

`1.1` should be type "integer-like" (is "double")

[1] "`1.1` should be type \"integer-like\" (is \"double\")"

# TRUE, by default, integers are always considered real

# FALSE, we do not check numerics for integerness if longer than 100

# Scalarness can now be checked at same time as type

`length(c(TRUE, TRUE))` should be 1 (is 2)

[1] "`length(c(TRUE, TRUE))` should be 1 (is 2)"

# Zero length match any length of same type

[1] "`length(integer())` should be 10 (is 0)"

alike(list(integer(), list(character(), logical(1L))), list(1:10, 
    list(letters, TRUE)))

# Recursive objects compared recursively

alike(list(integer(), list(character(), logical(1L))), list(1:10, 
    list(letters, c(TRUE, FALSE))))

`length(list(1:10, list(letters, c(TRUE, FALSE)))[[2]][[2]])` should be 1 (is 2)

[1] "`length(list(1:10, list(letters, c(TRUE, FALSE)))[[2]][[2]])` should be 1 (is 2)"

# `NULL` is a wild card when nested within recursive objects

[1] "`mtcars` should be `NULL` (is \"list\")"

iris.fake <- transform(iris, Species = as.character(Species))

# Since `data.frame` are lists, we can compare them recursively:

`iris.fake$Species` should be class "factor" (is "character")

[1] "`iris.fake$Species` should be class \"factor\" (is \"character\")"

iris.fake2 <- transform(iris, Species = factor(Species, levels = `[[<-`(levels(Species), 
    3, "americana")))

# we even check attributes (factor levels must match)!

`levels(iris.fake2$Species)[3]` should be "virginica" (is "americana")