Como posso determinar o nome do diretório atual em R?
A única solução que encontrei é usar expressões regulares e substituir recursivamente o primeiro diretório até que você obtenha uma palavra sem barra
gsub("/\\w*/","/",gsub("/\\w*/","/",getwd()))
Existe algo um pouco mais elegante? (e mais portátil?)