R/equation.R

In KareemMohamed95/Translations:

# Hello, world!
#
# This is an example function named 'hello'
# which prints 'Hello, world!'.
#
# You can learn more about package authoring with RStudio at:
#
#   http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
#   Install Package:           'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'

translateEquation <- function(text,language){
  x <- strsplit(text,"")[[1]]
  y <- ""
  for(char in x){
    y <- paste(y,mapEquation(char,language),sep = "")
  }
  y
}

mapEquation <- function(char,language){

  if(language == "arabic"){
    if(char==expTranslation$exp$english$x)char <- expTranslation$exp$arabic$x
    else if(char==expTranslation$exp$english$y)char <- expTranslation$exp$arabic$y
    else if(char==expTranslation$exp$english$z)char <- expTranslation$exp$arabic$z
    else if(char==expTranslation$exp$english$X)char <- expTranslation$exp$arabic$X
    else if(char==expTranslation$exp$english$Y)char <- expTranslation$exp$arabic$Y
    else if(char==expTranslation$exp$english$Z)char <- expTranslation$exp$arabic$Z
    else if(char==expTranslation$exp$english$zero)char <- expTranslation$exp$arabic$zero
    else if(char==expTranslation$exp$english$one)char <- expTranslation$exp$arabic$one
    else if(char==expTranslation$exp$english$two)char <- expTranslation$exp$arabic$two
    else if(char==expTranslation$exp$english$three)char <- expTranslation$exp$arabic$three
    else if(char==expTranslation$exp$english$four)char <- expTranslation$exp$arabic$four
    else if(char==expTranslation$exp$english$five)char <- expTranslation$exp$arabic$five
    else if(char==expTranslation$exp$english$six)char <- expTranslation$exp$arabic$six
    else if(char==expTranslation$exp$english$seven)char <- expTranslation$exp$arabic$seven
    else if(char==expTranslation$exp$english$eight)char <- expTranslation$exp$arabic$eight
    else if(char==expTranslation$exp$english$nine)char <- expTranslation$exp$arabic$nine
    else if(char==expTranslation$exp$english$a)char <- expTranslation$exp$arabic$a
    else if(char==expTranslation$exp$english$A)char <- expTranslation$exp$arabic$A
    else if(char==expTranslation$exp$english$b)char <- expTranslation$exp$arabic$b
    else if(char==expTranslation$exp$english$B)char <- expTranslation$exp$arabic$B
    else if(char==expTranslation$exp$english$c)char <- expTranslation$exp$arabic$c
    else if(char==expTranslation$exp$english$C)char <- expTranslation$exp$arabic$C
    else if(char==expTranslation$exp$english$D)char <- expTranslation$exp$arabic$d
    else if(char==expTranslation$exp$english$d)char <- expTranslation$exp$arabic$D
    else if(char==expTranslation$exp$english$e)char <- expTranslation$exp$arabic$e
    else if(char==expTranslation$exp$english$E)char <- expTranslation$exp$arabic$E
    else if(char==expTranslation$exp$english$P)char <- expTranslation$exp$arabic$p
    else if(char==expTranslation$exp$english$p)char <- expTranslation$exp$arabic$P
  }
  else if(language == "english"){
    if(char==expTranslation$exp$arabic$x)char <- expTranslation$exp$english$x
    else if(char==expTranslation$exp$arabic$y)char <- expTranslation$exp$english$y
    else if(char==expTranslation$exp$arabic$z)char <- expTranslation$exp$english$z
    else if(char==expTranslation$exp$arabic$X)char <- expTranslation$exp$english$X
    else if(char==expTranslation$exp$arabic$Y)char <- expTranslation$exp$english$Y
    else if(char==expTranslation$exp$arabic$Z)char <- expTranslation$exp$english$Z
    else if(char==expTranslation$exp$arabic$zero)char <- expTranslation$exp$english$zero
    else if(char==expTranslation$exp$arabic$one)char <- expTranslation$exp$english$one
    else if(char==expTranslation$exp$arabic$two)char <- expTranslation$exp$english$two
    else if(char==expTranslation$exp$arabic$three)char <- expTranslation$exp$english$three
    else if(char==expTranslation$exp$arabic$four)char <- expTranslation$exp$english$four
    else if(char==expTranslation$exp$arabic$five)char <- expTranslation$exp$english$five
    else if(char==expTranslation$exp$arabic$six)char <- expTranslation$exp$english$six
    else if(char==expTranslation$exp$arabic$seven)char <- expTranslation$exp$english$seven
    else if(char==expTranslation$exp$arabic$eight)char <- expTranslation$exp$english$eight
    else if(char==expTranslation$exp$arabic$nine)char <- expTranslation$exp$english$nine
    else if(char==expTranslation$exp$arabic$a)char <- expTranslation$exp$english$a
    else if(char==expTranslation$exp$arabic$A)char <- expTranslation$exp$english$A
    else if(char==expTranslation$exp$arabic$b)char <- expTranslation$exp$english$b
    else if(char==expTranslation$exp$arabic$B)char <- expTranslation$exp$english$B
    else if(char==expTranslation$exp$arabic$c)char <- expTranslation$exp$english$c
    else if(char==expTranslation$exp$arabic$C)char <- expTranslation$exp$english$C
    else if(char==expTranslation$exp$arabic$D)char <- expTranslation$exp$english$d
    else if(char==expTranslation$exp$arabic$d)char <- expTranslation$exp$english$D
    else if(char==expTranslation$exp$arabic$e)char <- expTranslation$exp$english$e
    else if(char==expTranslation$exp$arabic$E)char <- expTranslation$exp$english$E
    else if(char==expTranslation$exp$arabic$P)char <- expTranslation$exp$english$p
    else if(char==expTranslation$exp$arabic$p)char <- expTranslation$exp$english$P
  }
  char
}