R/plotgettext.R

Defines functions pgtq pgt

pgt <- function(msgid, translate)
	gettext(msgid, domain = if (translate) 'plots-albatross' else NA)
pgtq <- function(msgid, translate)
	parse(text = pgt(msgid, translate))[[1]]

# a few strings are produced dynamically, force their translation here
if (FALSE) {
pgt('Emission')
pgt('Excitation')
pgt('Fluorescence')
pgt('Scattering')
}

Try the albatross package in your browser

Any scripts or data that you put into this service are public.

albatross documentation built on May 29, 2024, 9:10 a.m.