working directory in r reading and writing data