getwd code snippets in r

find the path of a directory in r