A sample app written in R