<div><span style="font-size: large; color: #0000ff;">Tem os dados para rodar?</span></div>
<div> </div>
<div> </div>
<div> </div>
<div dir="ltr">Bom dia, Rodrigo!
<div> </div>
<div>Muito obrigado pelo esclarecimento, funcionou perfeitamente!</div>
<div> </div>
<div>Abraços</div>
</div>
<div class="gmail_extra"><br />
<div>
<div class="gmail_signature" data-smartmail="gmail_signature">
<div dir="ltr">
<div>Yury Duarte</div>
Engenheiro Agrônomo - ESALQ/USP</div>
</div>
</div>
<br />
<div class="gmail_quote">Em 5 de janeiro de 2018 10:35, Rodrigo de Souza Oliveira <span dir="ltr"><<a href="../../../undefined//compose?to=rddsouzaoliveira@gmail.com" target="_blank">rddsouzaoliveira@gmail.com</a>></span> escreveu:<br />
<blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">
<div dir="ltr">
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;">Yury, bom dia.</div>
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;"> </div>
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;">Por padrão o R "printa" os objetos automaticamente, mesmo sem a gente chamar uma função para isso. Porém, quando está dentro de um loop isso não funciona. Portanto deve-se sempre chamar uma função como o "print()", por exemplo. Com o código abaixo deve funcionar:</div>
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;"> </div>
<div class="gmail_default" style="font-size: small;">
<div class="gmail_default"><span style="color: #0000ff; font-family: monospace, monospace;">pdf(paste0('C:\\Users\\Yury\\Desktop\\Fernandes\\Graphs\\', a[i], '.pdf'), width = 20, height = 14)</span></div>
<div class="gmail_default"><span style="color: #0000ff; font-family: monospace, monospace;">print(matrixplot(dwi(duff, var.type="Days"),ColorRamp="Days", main = "Estação_b"))</span></div>
<div class="gmail_default"><span style="color: #0000ff; font-family: monospace, monospace;">dev.off()</span></div>
</div>
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;"> </div>
<div class="gmail_default" style="font-family: arial,helvetica,sans-serif; font-size: small;"> </div>
<div class="gmail_extra"><br />
<div class="gmail_quote">
<div>
<div class="h5">Em 5 de janeiro de 2018 09:05, Yury Duarte via R-br <span dir="ltr"><<a href="../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:</div>
</div>
<blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">
<div>
<div class="h5">
<div dir="ltr"><span style="font-size: 12.8px;">Bom dia colegas listeiros!</span>
<div style="font-size: 12.8px;"> </div>
<div style="font-size: 12.8px;">Estou tendo um pequeno problema para automatizar a criação e salvamento de gráficos temáticos utilizando um loop.</div>
<div style="font-size: 12.8px;">Quando rodo o script lendo um arquivo de cada vez (fora do loop), o gráfico é salvo sem prejuízo na pasta de destino, entretanto, quando peço para rodar o script dentro do loop, ele salva os gráficos em branco. Gostaria de entender o porque dessa peculiaridade, já que programa não me retorna nenhum aviso de falha ou problema.</div>
<div style="font-size: 12.8px;"> </div>
<div style="font-size: 12.8px;">O código utilizado segue abaixo e também anexei dois arquivos distintos dos bancos de dados que estou trabalhando, caso alguém queira/precise rodar o script.</div>
<div style="font-size: 12.8px;">Desde já, agradeço pela ajuda de todos!</div>
<div style="font-size: 12.8px;"> </div>
<div>
<div><span style="font-size: 12.8px;">rm(list=ls())</span></div>
<div><span style="font-size: 12.8px;">library(hydroTSM)</span></div>
<div><span style="font-size: 12.8px;">library(lattice)</span></div>
<div><span style="font-size: 12.8px;">library(stringr)</span></div>
<div><span style="font-size: 12.8px;"> </span></div>
<div><span style="font-size: 12.8px;">#----------Verificando Diretorio----------#</span></div>
<div><span style="font-size: 12.8px;">setwd('C:\\Users\\Yury\\Desktop\\Fernandes')</span></div>
<div><span style="font-size: 12.8px;">length(dir('C:\\Users\\Yury\\Desktop\\Fernandes'))</span></div>
<div><span style="font-size: 12.8px;">a = grep('.txt', dir(getwd()), value = T)</span></div>
<div><span style="font-size: 12.8px;">a = str_sub(a, end = 5)</span></div>
<div><span style="font-size: 12.8px;"> </span></div>
<div><span style="font-size: 12.8px;">#----------Loop de todas as EM----------#</span></div>
<div><span style="font-size: 12.8px;">for(i in 1:length(a)){</span></div>
<div><span style="font-size: 12.8px;">  </span></div>
<div><span style="font-size: 12.8px;">  #----------Selecao Arquivo INMET----------#</span></div>
<div><span style="font-size: 12.8px;">  b = read.table(paste0('C:\\Users\\Yury\\Desktop\\Fernandes\\', a[i], '.txt'), header=TRUE)</span></div>
<div><span style="font-size: 12.8px;">  b.cor = data.frame(b$Data, b$Precipitacao, b$TempMaxima, b$TempMinima, b$Insolacao, b$Umidade.Relativa.Media)</span></div>
<div><span style="font-size: 12.8px;">  colnames(b.cor) = c("Data","RAIN","TMAX","TMIN","n","RHUM"); str(b.cor)</span></div>
<div><span style="font-size: 12.8px;">  b.cor$Data = as.Date(levels(b$Data))[b$Data]</span></div>
<div><span style="font-size: 12.8px;">  </span></div>
<div><span style="font-size: 12.8px;">  #----------Criar Vetor Completo de Datas----------#</span></div>
<div><span style="font-size: 12.8px;">  vetor.data = seq(as.Date('01/07/1961', "%d/%m/%Y"), as.Date('30/06/2015', "%d/%m/%Y"), 1)</span></div>
<div><span style="font-size: 12.8px;">  Data = data.frame(Data=vetor.data)</span></div>
<div><span style="font-size: 12.8px;">  </span></div>
<div><span style="font-size: 12.8px;">  #----------Corrigir Coluna de Datas com Falha----------#</span></div>
<div><span style="font-size: 12.8px;">  duff = merge(b.cor, Data, all = TRUE)</span></div>
<div><span style="font-size: 12.8px;">  str(duff)</span></div>
<div><span style="font-size: 12.8px;">  </span></div>
<div><span style="font-size: 12.8px;">  #----------Criando Graficos----------#</span></div>
<div><span style="font-size: 12.8px;">  pdf(paste0('C:\\Users\\Yury\\Desktop\\Fernandes\\Graphs\\', a[i], '.pdf'), width = 20, height = 14)</span></div>
<div><span style="font-size: 12.8px;">  matrixplot(dwi(duff, var.type="Days"),ColorRamp="Days", main = "Estação_b")</span></div>
<div><span style="font-size: 12.8px;">  dev.off()</span></div>
<div><span style="font-size: 12.8px;">  </span></div>
<div><span style="font-size: 12.8px;">}</span></div>
</div>
<div style="font-size: 12.8px;"> </div>
<div>
<div class="m_-6656401243596625937m_-7853871614998100343gmail_signature">
<div dir="ltr">
<div>Yury Duarte</div>
Engenheiro Agrônomo - ESALQ/USP</div>
</div>
</div>
</div>
</div>
</div>
</blockquote>
</div>
</div>
</div>
</blockquote>
</div>
</div>