change r script name file