change to a R script file