[Rd] translation domain is wrong in stopifnot()?

[Gábor Csárdi]

I don't know if this would be considered a bug in either stopifnot()
or (n)gettext(), or not a bug at all, but sometimes the translation
domain is not set properly for stopifnot() messages, so they won't be
translated. E.g.

Sys.setenv(LANGUAGE = "de")

# This is good
stopifnot(FALSE)
#> Fehler: FALSE ist nicht TRUE

f <- function() stopifnot(FALSE)
# This is not
f()
#> Fehler in f() : FALSE is not TRUE

Gabor