add R code to slidify