add R code of shiny app