Galera, surgiu um outro problema aqui. Estou tentando arrumar, mas está dando um erro que eu desconheço, o erro é esse:<br><br><br>Erro em ans[test & !nas] <- rep(yes, length.out = length(ans))[test &  : <br>  substituto tem comprimento zero<br>

<br><br><br>Usei o comando: ifelse(feeddb,message("Tabela criada e 
alimentado com sucesso!!"),message("Atencao: Tabela nao foi 
alimentada!!") )<br><br>Pois quando o banco de dados é alimentado, ele 
sempre da resposta TRUE, então criei esse ifelse para me dizer essas 
mensagens, só que fica dando o erro que postei em cima.<br>
<br><br><br>Abraços,<br><br><br>Victor Eduardo.<br><br><div class="gmail_quote">Em 7 de abril de 2011 14:59, Victor Eduardo <span dir="ltr"><<a href="mailto:victorduca08@gmail.com">victorduca08@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">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:<br>
<br><br>dir2 <- paste(dat.dir, anomes, sep="")
<br>dados<-dir(dir2, recursive = TRUE, pattern='\\.txt$', full.names = TRUE)
<br><br>dados1 <- 0
<br>n<-5
<br>nomecol<- c("sid", "ano", "mes", "dia", "hora", "hh", "lon", "lat", "height", "hls", "ps", "pmsl", "dd", "ff", "t", "td")
<br> <br><br>for ( i in 1:n) {
<br>arquivo<-read.table(dados[i])
<br>attach(arquivo)
<br>dados1<-subset(arquivo, substr(as.numeric(V1), 1, 2) == "82" | substr(as.numeric(V1), 1, 2) == "83")
<br>write.table(dados1,file=paste(anomes, ".txt", sep="paste(anomes, ".txt", sep="")"),append=TRUE,col.names=FALSE, row.names=FALSE)
<br>}
<br> <br>dadosf <-read.table(paste(anomes, ".txt", sep=""), col.names=nomecol)
<br> <br><br> <br>if(dbExistsTable (con,paste("smar3_",anomes, sep=""))) { 
<br> dbWriteTable(con,paste("smar3_",anomes, sep=""),dadosf,append=T)
<br>}else {
<br>dbWriteTable(con,paste("smar3_",anomes, sep=""),dadosf, sep="")
<br>}
<br><br>file.remove(paste(anomes, ".txt", sep=""),showWarnings = TRUE)
<br><br><br>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?<br><br><br>

Abraços!<br><br>
</blockquote></div><br>