Automatically add the head part for each R script

Just call get.data and get.result.name