tests/testthat/_mocks/find-source/r-script4.R

# This script mocks a real R script containing a custom interface function
# calling method Translator$translate(). It must be ignored by all tests of
# find_source_*() functions.

translate <- function(..., lang = language_get()) {
    return(tr$translate(..., lang = lang, source_lang = "en"))
}

Try the transltr package in your browser

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

transltr documentation built on April 3, 2025, 9:33 p.m.