[R-br] enviando dados para RmySQL

[Victor Eduardo]

Pessoal, to com dúvida de como evitar de enviar dados repetidos para o meu
banco de dados mysql. Como posso fazer isso? O Script é esse:


dir2 <- paste(dat.dir, anomes, sep="")
dados<-dir(dir2, recursive = TRUE, pattern='\\.txt$', full.names = TRUE)

dados1 <- 0
n<-5
nomecol<- c("sid", "ano", "mes", "dia", "hora", "hh", "lon", "lat",
"height", "hls", "ps", "pmsl", "dd", "ff", "t", "td")


for ( i in 1:n) {
arquivo<-read.table(dados[i])
attach(arquivo)
dados1<-subset(arquivo, substr(as.numeric(V1), 1, 2) == "82" |
substr(as.numeric(V1), 1, 2) == "83")
write.table(dados1,file=paste(anomes, ".txt", sep="paste(anomes, ".txt",
sep="")"),append=TRUE,col.names=FALSE, row.names=FALSE)
}

dadosf <-read.table(paste(anomes, ".txt", sep=""), col.names=nomecol)



if(dbExistsTable (con,paste("smar3_",anomes, sep=""))) {
 dbWriteTable(con,paste("smar3_",anomes, sep=""),dadosf,append=T)
}else {
dbWriteTable(con,paste("smar3_",anomes, sep=""),dadosf, sep="")
}

file.remove(paste(anomes, ".txt", sep=""),showWarnings = TRUE)


Tentei montar um if aqui para tentar avisar que os dados já existem, mas nao
ficou muito legal, ele fica sempre jogando dados repetidos para o banco.
Alguém tem alguma dica para eu possa evitar isso?


Abraços!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110407/a0f6cd2e/attachment.html>