Shiny, deSolve and ggplot play nicely together

This is just a quick post (after a long absence) to quickly share my first Shiny attempt. The aim is to make available mechanistic models to coworkers through a web-based interface. I had planned to use RApache and RGTK+, but the arrival of Shiny has changed the playing ground dramatically, and for the better. I love the fact that the pieces are 'reactive' and I don't have to be bothered by making sure that every time something changes all the relevant dependencies are also updated... In order to keep things easy, graphically nice and not to get bogged down in the tiny details of my actual work, I use the Lorent'z system of differential equations once again. I post below the gist for server.R, ui.R, and the final result: