fix R script & json