assert(combine = "and") gives wrong variable name

[mb706]

> f <- function(a, b) assert(checkFunction(a), checkNumeric(b), combine = "and")
> f(identity, "a")
Error: Assertion on 'a' failed. Must be of type 'numeric', not 'character'.

The expected error message would refer to variable b.

[tdeenes]

@mllg This seems to be indeed a bug: .var.name = as.character(dots[[1L]])[2L] should be .var.name = as.character(dots[[i]])[2L] here

[mllg]

Indeed, thanks for reporting, and thanks for confirming!