Difference between revisions of "OpasnetUtils/Translate"

### This is code Op_en7392/dictionary) on page [[OpasnetUtils/Tranlate]].

library(OpasnetUtils)

dictionary <- tidy(opbase.data("Op_en7392.dictionary"))
colnames(dictionary)[colnames(dictionary) == "Result"] <- "English"
dictionary$Finnish <- gsub("\\\\n", "\\\n", dictionary$Finnish)
dictionary$English <- gsub("\\\\n", "\\\n", dictionary$English)

objects.store(dictionary)
cat("Data.frame dictionary stored.\n")

### This is code Op_en7392/translate on page [[OpasnetUtils/Translate]].

library(OpasnetUtils)

translate <- function( # Previously suomenna
	x, # object to be translated (ovariable, data.frame, or vector)
	lang = NULL, # language to translate to.
	dict = NULL # rcode containing the dictionary
) {
	if(is.null(lang)) if(exists("language")) lang <- language else lang <- "English"
	# Use dict if it is given. Otherwise use existing dictionary, or fetch the default one.
	if(is.null(dict)) dict <- "Op_en7392/dictionary" else rm(dictionary, envir = .GlobalEnv)
	Fetch(data.frame(Name = "dictionary", Ident = dict))

	require(reshape2)
	dic <- melt(dictionary, id.vars = lang, value.name = "From")

	tr <- function(a) {
		if(is.numeric(a)) return(a)
		if(is.factor(a)) temp <- levels(a) else temp <- a
		out <- as.character(dic[[lang]][match(temp, dic$From)])
		out[is.na(out)] <- temp[is.na(out)]
		if(is.factor(a)) {
			out2 <- a; levels(out2) <- out
		} else {
			out2 <- out
		}
		return(out2)
	}

	if(class(x) == "ovariable") {
		colnames(x@output) <- tr(colnames(x@output))
		for(i in colnames(x@output)) {
			x@output[[i]] <- tr(x@output[[i]])
		}
	}
	if(is.data.frame(x)) {
		colnames(x) <- tr(colnames(x))
		for(i in colnames(x)) {
			x[[i]] <- tr(x[[i]])
		}
	}
	if(is.vector(x)) {
		x <- tr(x)
	}
	return(x)
}

objects.store(translate)
cat("Function translate stored.\n")