trying to make it work with RStudio