Se a variável for inteiro
  sprintf("%04d", c(1,3,30,50,900))

On 07/22/2013 08:57 AM, Sérgio Henrique almeida da silva ju wrote:

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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.