root directory code snippets in r

find the root directory of a file in r