R/general.R

In KareemMohamed95/Translations:

expTranslation <- rjson::fromJSON(file = system.file("Translations","equation.json",package = "Translations"))

#' @export
translationTypes <- list(equation = "equation",number = "number")
#' @export
translateExpression <- function(text, name, language){

  if(name=="equation"){
    result <- translateEquation(text,language)
  }
  else if(name=="number"){
    result <- translateNumber(text,language)
  }
  result
}