Create shiny.Rmd