<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Se a variável for inteiro <br>
sprintf("%04d", c(1,3,30,50,900))<br>
<br>
On 07/22/2013 08:57 AM, Sérgio Henrique almeida da silva ju wrote:<br>
</div>
<blockquote
cite="mid:CAEuVWs00mO55tqMaokCbJx0pF3UUSLRJDsbn-+qFfYwPKhXMTA@mail.gmail.com"
type="cite">
<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="color:rgb(0,0,0);font-family:Verdana,Geneva,Helvetica,Arial,sans-serif;font-size:13px">with,
mas não sei como fazer.</span></div>
<div><span
style="color:rgb(0,0,0);font-family:Verdana,Geneva,Helvetica,Arial,sans-serif;font-size:13px"><br>
</span></div>
<div><span
style="color:rgb(0,0,0);font-family:Verdana,Geneva,Helvetica,Arial,sans-serif;font-size:13px">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 moz-do-not-send="true"
href="http://lattes.cnpq.br/1611345552843383"
target="_blank">http://lattes.cnpq.br/1611345552843383</a>
<br>
Tel: (21) 68463637<br>
<div><a moz-do-not-send="true"
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 class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>