## This app requires OpenCPU 1.0.1 or higher !!!! 
##

#' @export
rmdtext <- function(text){
  writeLines(text, con="input.Rmd");
  knit2html("input.Rmd", output="output.html");
  invisible();
}

test <- function(){
  f <- c(1, 2, 3, 4, 9, 2, 5, 9, 3);
  plot(f);
}