Bug report: https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17998
Gabor On Wed, Dec 2, 2020 at 12:09 PM Martin Maechler <maech...@stat.math.ethz.ch> wrote: > > >>>>> Gábor Csárdi > >>>>> on Tue, 1 Dec 2020 23:48:37 +0000 writes: > > > 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 > > or even just directly : > > > (function() stopifnot(1))() > Fehler in (function() stopifnot(1))() : 1 is not TRUE > > > I agree there is a bug. > > The problem is that the default for the optional 'domain' > argument does not "work" correctly in the 2nd case. > > I've checked that this can be worked around if I explicitly add > > , domain = "R-base" > > to the ngettext() call [ and also the gettext() call above ] . > Then I do get > > > (function() stopifnot(1))() > Fehler in (function() stopifnot(1))() : 1 ist nicht TRUE > > > > For now I'd claim the bug is in the underlying C code of > gettext() , ngettext() ... > > It would we good to report this in R's bugzilla, please, > see https://www.r-project.org/bugs.html > > Martin > > ______________________________________________ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel
