div - sidebarpanel shiny

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

Question

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

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

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

Answer 1

Si no supieras el basename (y yo no), podrías haber usado esto:

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

Answer 2

Tu código de ejemplo no funciona para mí, pero probablemente estés buscando el basename o el basename dirname :

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