rename to "diablo"; add api R script