Se ela tiver tamanho 1, gostaria de concatenar 000, se ela tiver tamanho 2 concateno 00 e se ela tiver tamanho 3 concateno 0.
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