<div dir="ltr">Bom dia, Rodrigo!<div><br></div><div>Muito obrigado pelo esclarecimento, funcionou perfeitamente!</div><div><br></div><div>Abraços</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></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="mailto: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"><br></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"><br></div><div class="gmail_default" style="font-size:small"><span class=""><div class="gmail_default"><font face="monospace, monospace" color="#0000ff">pdf(paste0('C:\\Users\\Yury\\<wbr>Desktop\\Fernandes\\Graphs\\', a[i], '.pdf'), width = 20, height = 14)</font></div></span><div class="gmail_default"><font face="monospace, monospace" color="#0000ff">print(matrixplot(dwi(duff, var.type="Days"),ColorRamp="<wbr>Days", main = "Estação_b"))</font></div><div class="gmail_default"><font face="monospace, monospace" color="#0000ff">dev.off()</font></div></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small"><br></div><div class="gmail_default" style="font-family:arial,helvetica,sans-serif;font-size:small"><br></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="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br></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"><br></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"><br></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"><br></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"><br></span></div><div><span style="font-size:12.8px">#----------Verificando Diretorio----------#</span></div><div><span style="font-size:12.8px">setwd('C:\\Users\\Yury\\Deskto<wbr>p\\Fernandes')</span></div><div><span style="font-size:12.8px">length(dir('C:\\Users\\Yury\\D<wbr>esktop\\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"><br></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\\<wbr>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",<wbr>"n","RHUM"); str(b.cor)</span></div><div><span style="font-size:12.8px">  b.cor$Data = as.Date(levels(b$Data))[b$Data<wbr>]</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\\D<wbr>esktop\\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="Da<wbr>ys", 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"><br></div><div><div class="m_-6656401243596625937m_-7853871614998100343gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
</div>
<br></div></div>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forneça código mínimo reproduzível.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div class="m_-6656401243596625937gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><br><br>Rodrigo Oliveira<br></div></div>
</font></span></div></div>
</blockquote></div><br></div>