<div dir="ltr">Não entendi Elias!</div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 22 de julho de 2013 09:00, Elias Krainski <span dir="ltr"><<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
  
    
  
  <div bgcolor="#FFFFFF" text="#000000">
    <div>Se a variável for inteiro <br>
        sprintf("%04d", c(1,3,30,50,900))<div><div class="h5"><br>
      <br>
      On 07/22/2013 08:57 AM, Sérgio Henrique almeida da silva ju wrote:<br>
    </div></div></div>
    <blockquote type="cite"><div><div class="h5">
      <div dir="ltr">Prezados
        <div><br>
        </div>
        <div>Estou tentando concatenar uma variável com a seguinte
          condição:</div>
        <div>Se ela tiver tamanho 1, gostaria de concatenar 000, se ela
          tiver tamanho 2 concateno 00 e se ela tiver tamanho 3
          concateno 0.</div>
        <div><br>
        </div>
        <div>Eu pensei na seguinte função:</div>
        <div><br>
        </div>
        <div>
          <div>dados$len <- nchar(dados$var)</div>
          <div>func <- function(){<br>
          </div>
          <div>if (dados$len == 1){</div>
          <div>dados$var1 = paste("000", dados$var, colapse="") }</div>
          <div>else if (dados$len == 2){</div>
          <div>dados$var1 = paste("00", dados$var, colapse="")}</div>
          <div>else if (dados$len == 3){</div>
          <div>dados$var1 = paste("0", dados$var, colapse="")}</div>
          <div>}</div>
          <div>func()</div>
          <div><br>
          </div>
          <div><br>
          </div>
          <div>Mas está dando a seguinte mensagem de erro:</div>
          <div><br>
          </div>
          <div>
            <div>Mensagens de aviso perdidas:</div>
            <div>In if (dados$len == 1) { :</div>
            <div>  a condição tem comprimento > 1 e somente o
              primeiro elemento será usado</div>
          </div>
          <div><br>
          </div>
          <div>Vi em outro tópico que o Benilton sugere usar <span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif">with,
              mas não sei como fazer.</span></div>
          <div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif"><br>
            </span></div>
          <div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif">Abraços</span></div>
          <div><br>
          </div>
          -- <br>
          <div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>
            Doutorando em Epidemiologia em Saúde Pública<br>
            Escola Nacional de Saúde Pública Sérgio Arouca -
            ENSP/FIOCRUZ<br>
            <a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a>
            <br>
            Tel: <a href="tel:%2821%29%2068463637" value="+12168463637" target="_blank">(21) 68463637</a><br>
            <div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
            </div>
          </div>
        </div>
      </div>
      <br>
      <fieldset></fieldset>
      <br>
      </div></div><pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
    </blockquote>
    <br>
  </div>

<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br></div></div>
</div>