directory operations code snippets in r

find the root directory of a directory in r