Hola Javier.

Buen aporte.

De toda formas, debieras pulir un poco más el valor de "sistema" para poder cargar adecuadamente las opciones del switch.. fíjate que "sistema" no siempre está incluido en c(x86,lin,mac)

Te paso mi info.....
====================
> x <- sessionInfo()
> x
R version 3.0.1 (2013-05-16)
Platform: i386-w64-mingw32/i386 (32-bit)
> sistema <- substr(x$R.version$system,1, 3  )
> sistema
[1] "i38"
====================

Una opción a considerar es manipular  R.Version()$os para montar la variable "sistema"
Otra alternativa:  Sys.info()[1]


Un Saludo,
Miguel.



De: Javier Villacampa González [mailto:javier.villacampa.gonzalez@gmail.com]
Enviado el: viernes, 19 de julio de 2013 13:56
Para: Rodríguez Muíños, Miguel Ángel
CC: R ayuda
Asunto: Re: [R-es] copiar directorio en r

Muchas gracias Miguel.
Os pongo mi solución por si alguien necesita llamar a distintos tipos de sistema.

setwd("C:/Users/usuario/Desktop/Pruebas/")

x <- sessionInfo()
sistema <- substr(x$R.version$system,1, 3  )
origen <- "Carp"
destino <- "Carp235"
switch(sistema,
       x86 =
         system(paste(Sys.getenv("COMSPEC"),"/c xcopy",origen,destino,"/s /I /Y")) # S para que copie los subdirectorios, I para que sea carpete e Y para que sobrescriba
       ,
       lin = system(paste("cp -r",origen,destino)),
       # mac = system(paste("cp -r",origen,destino))
)



________________________________
Nota: A información contida nesta mensaxe e os seus posibles documentos adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea. A distribución ou copia desta mensaxe non está autorizada.

Nota: La información contenida en este mensaje y sus posibles documentos adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a. Si usted no es el/la destinatario/a original de este mensaje, por favor elimínelo. La distribución o copia de este mensaje no está autorizada.

See more languages: http://www.sergas.es/aviso_confidencialidad.htm

	[[alternative HTML version deleted]]

