The only solution I\'ve encountered is to use regular expressions and recursively replace the first directory until you get a word with no slashes.
gsub(\"/\
If you didn't know basename (and I didn't), you could have used this:
basename
tail(strsplit(getwd(), "/")[[1]], 1)