R/getLanguages.R

Defines functions getLanguages

getLanguages <-
function(translator){
    languages <- languageCodes()
    
    cat('LANGUAGE                CODE
----------------------------
')
    for(i in 1:length(languages[[translator]])){
        code <- languages[[translator]][i]
        cat(paste(gsub('_', ' ', names(code)), paste(rep(" ", 22 - nchar(names(code))), collapse=''), code))
        cat('\n')
    }
}

Try the translateR package in your browser

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

translateR documentation built on May 30, 2017, 5:36 a.m.