¿Cómo puedo determinar el nombre del directorio actual en R?

Question

La única solución que he encontrado es usar expresiones regulares y recursivamente reemplazar el primer directorio hasta que obtenga una palabra sin barras.

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

¿Hay algo un poco más elegante? (Y más portátil?)

Answer 1

Su código de ejemplo no funciona para mí, pero es probable que está buscando, ya sea para basename o dirname:

> getwd() 
[1] "C:/cvswork/data" 
> basename(getwd()) 
[1] "data" 
> dirname(getwd()) 
[1] "C:/cvswork" 

Answer 2

Si no sabe basename (y yo no 't), podría haber usado esto:

tail(strsplit(getwd(), "/")[[1]], 1)