first attempt

My first attempt based on Pierre's examples in his package "RShapeTarget (https://github.com/pierrejacob/RShapeTarget)

**Design One:**
txt_logo <- "R"
col_logo <- c("white", "steelblue")
![logo1](http://i.imgur.com/crKPygn.png)

**Design Two:**
txt_logo <- "useR"
col_logo <- wes.palette(4, "GrandBudapest")
![logo2](http://i.imgur.com/9aLKjOo.png)

Note: this is also my first ever pull request :) See you in LA!