Crear árbol de directorios con R

in #r7 years ago

Explicación de cómo crear un árbol o grupo de directorios con el lenguaje R a partir de una lista.

La cosa es bien simple. Tenemos un listado de nombres de carpetas, por ejemplo de apartados de un proyecto de obras, y queremos crear de manera sistemática y rápida dichas carpetas en nuestro PC.

Pues vamos a ver cómo

Código R

# Crea árbol de  directorios

# variable con la lista de carpetas

directorios<-c("01.  Contrato",   
               "02.  Pliego bases licitación y anexos", 
               "03.  Oferta empresa adjudicataria",
               "04.  Proyecto y modificados",  
               "06.  Plan Aseguramiento Calidad y doc aprobación" ,                                                   
               "07.  Plan Seguridad Salud y doc aprobación"   ,                                                                
               "08.  Programas de trabajos",                                                                    
               "09.  Garantías y pólizas de seguros obra",
               "10.  Actas de obra",
               "10.1 Acta de replanteo de las obras",
               "10.2 Acta de inspección conjunta de las obras",
               "10.2 Acta de recepción de las obras", 
               "10.3 Acta de inicio de pruebas de funcionamiento")

#  Nos vamos al directorio donde queremos meter las carpetas

    setwd("C:/R/proyectos/obra1")

# Creamos el arbol de directorios en dicha carpeta con un bucle
   for (i in seq_along(directorios) ) {
         dir.create(file.path(directorios[i])) 
    }  

Listo, ya hemos creado las carpetas en un minuto.

Saludos amigos ;-)

Sort:  

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