Not sure if it solves your problem but `source(file, chdir = TRUE)` can be useful.