rstudio test code