Как я могу определить текущее имя каталога в R?

Единственное решение, которое я ' Я столкнулся с тем, чтобы использовать регулярные выражения и рекурсивно заменять первый каталог, пока вы не получите слово без косой черты.

gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))

Есть ли что-нибудь более элегантное? (и более портативное?)