Use here package to find files

[jefferis]

i.e. to get rid of this kind of stuff

# set working directory to location of this file
try(setwd(dirname(attr(body(function() {}),'srcfile')$filename)))