[R-br] enviando dados para RmySQL

Henrique Dallazuanna wwwhsd em gmail.com
Quinta Abril 7 15:06:51 BRT 2011


Crie chaves primárias no seu banco nas colunas onde deseja que seja única

2011/4/7 Victor Eduardo <victorduca08 em gmail.com>:
> 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!
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O


Mais detalhes sobre a lista de discussão R-br