You can get the fracs attribute from the fraction object as follows, but this is just a symbolic representation of your fraction:
x <- fractions(.375) attr(x, "fracs")
If you want to access the numerator and denominator values, you can simply split the line with the following function:
getfracs <- function(frac) { tmp <- strsplit(attr(frac,"fracs"), "/")[[1]] list(numerator=as.numeric(tmp[1]),denominator=as.numeric(tmp[2])) }
What you can use as follows:
fracs <- getfracs(x) fracs$numerator
source share