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