He visto que puede tener problemas si hay espacios en la lista de directorios, por lo que es mejor pasarle antes una función de trim como:
- trim <- function (x) gsub("^\s+|\s+$", "", x)
- directorios<-apply(directorios,1,trim) #y así quitamos los espacios