R code for my diamond value app created in shiny