Pass scriptname as argument to debug which r script takes most time