Olá, eu estou com um problema.
Eu tenho um diretório fictício que contém um conjunto de pastas, cada pasta dentro de si contém uma pasta de protocolo, e dentro de cada pasta eu tenho um ou mais arquivos. Ex:
Pasta Protocolo Arquivo(s)
A -> 1 -> x
B -> 2 -> y
C -> 1 -> z , x
O meu desafio é transferir as pastas dos protocolos para um novo diretório e colocar os arquivos dentro dessas pastas sem sobrescreve-los. Então o resultado ideal seria:
Protocolo Arquivo(s)
1 -> x (1) , x (2) , z
2 -> y
A pasta e o protocolo estão discriminados em um df(test), então eu estou criando esses diretórios com um loop:
for (i in 1:3){
print(i)
pasta_to <- paste("F:/",
test$pasta[i], sep="/")
# Cria o diretório se ele não existe
ifelse(!dir.exists(pasta_to),
dir.create(pasta_to, recursive=TRUE), FALSE)
pasta_from = paste("C:/Meus Documentos/destino",
test$pasta_origem[i],
test$pasta_do_anexo_resposta[i],
sep="/")
files_from <- list.files(pasta_from)
path_from <- paste(pasta_from, files_from, sep="/")
file.copy(from=path_from, to = pasta_to, overwrite = F)
}
Com esse código ele acaba sobrescrevendo os arquivos com o mesmo nome x:
Protocolo Arquivo(s)
1 -> x , z
2 -> y
Como eu faço para não sobrescrever os arquivos?