getwd() code snippets in r

find the parent directory of a file in r