R/numbers.R

In KareemMohamed95/Translations:

translateNumber <- function(number,language){

  x <- if(is.numeric(number))(strsplit(toString(number),"")[[1]]) else strsplit(number,"")[[1]]
  y <- ""
  for(char in x){
    y <- paste(y,mapNumber(char,language),sep = "")
  }
  y
}

mapNumber <- function(char,language){

  if(language == "arabic"){
    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(language == "english"){
    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
  }
  char
}