R/rfrac.R

In Tex4exams: Generating 'Sweave' Code for 'R/exams' Questions in Mathematics

## Convert a fraction into vertical fractions instead of the 
## default backslash form provided by the "fractional" package.
## The output is a tex code.

rfrac <- function(x){
  if (denominators(x)==1) 
    y<- numerators(x) 
  else
    y <- paste0("\\\\frac{", numerators(x),"}{",denominators(x),"}") 
  return(y)
}