gettext
Translate Text Messages
Description
Translates character vectors into other languages. (This functionality
is supported only when Native Language Support is enabled in the build
of R.) The function ngettext is used to provide
a choice of messages, depending on the value of an integer.
Usage
gettext(..., domain = NULL)
ngettext(n, msg1, msg2, domain = NULL)
Arguments
n |
an integer value used to select msg1 or
msg2.
|
msg1 |
a character string to use if n=1.
|
msg2 |
a character string to use if n is not set to 1.
|
... |
one or more character vectors.
|
domain |
the domain to use for language translation.
|
Details
These functions emulate the R functions gettext and
ngettext, but Native Language Support and support for domains
are not included in this version, so these functions have limited
functionality.
Value
gettext | returns a single character vector
containing all values in the input ... coerced to
character. If translation is enabled, they are translated
according to the given domain. |
ngettext | returns a character string: either
msg1 or msg2, depending on the value of n. |
See Also
Examples
# Select the correct warning message
func1 <- function(x, y, z)
{
miss <- c("x", "y", "z")[c(missing(x), missing(y), missing(z))]
if(length(miss) > 0) {
warning(sprintf(ngettext(length(miss),
"Variable %s is missing.\n",
"Variables %s are missing.\n"), paste(sQuote(miss),
collapse = ", ")))
}
}
func1(y=5)
func1(y=5,z=2)