R syntax highlighting

Testing a change. Hopefully this eliminates the bizarre html links in the syntax highlighting.

foo <- function(x,y) {
if (is.vector(x) && is.vector(y)) {
return(sum(x, y))
}
stop("drop and roll")
}