(а я нет), вы могли бы использовать это:
твенное решение, с которым я столкнулся, - это использовать регулярные выражения и рекурсивно заменять первый каталог, пока не получится слово без косой черты.
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
Есть что-нибудь более элегантное? (и более портативный?)