<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 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></div>