demo app from R on R tutorial