find create date r-script