Custom language engine on Knitr

Question

I have added a custom language engine on Knitr according the documentation.

require(knitr)
knit_engines$set(upper = function(options) {
  code <- paste(options