[R-br] Duvida Concatenação

[Sérgio Henrique almeida da silva ju]

Prezados

Estou tentando concatenar uma variável com a seguinte condição:
Se ela tiver tamanho 1, gostaria de concatenar 000, se ela tiver tamanho 2
concateno 00 e se ela tiver tamanho 3 concateno 0.

Eu pensei na seguinte função:

dados$len <- nchar(dados$var)
func <- function(){
if (dados$len == 1){
dados$var1 = paste("000", dados$var, colapse="") }
else if (dados$len == 2){
dados$var1 = paste("00", dados$var, colapse="")}
else if (dados$len == 3){
dados$var1 = paste("0", dados$var, colapse="")}
}
func()


Mas está dando a seguinte mensagem de erro:

Mensagens de aviso perdidas:
In if (dados$len == 1) { :
  a condição tem comprimento > 1 e somente o primeiro elemento será usado

Vi em outro tópico que o Benilton sugere usar with, mas não sei como fazer.

Abraços

-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 68463637
http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130722/7123a232/attachment.html>