Almofada com zeros à esquerda para largura comum [duplicada]

Esta questão já tem uma resposta aqui:

Como adicionar zeros à esquerda? 8 respostas

Eu estou lidando com um banco de dados com formato de hora como:

HOUR ID
1  2
10 4
5  6
20 6

Eu gostaria de colocar um zero no valor com 1 caractere e armazená-los em uma nova coluna chamada NHOUR, como:

NHOUR HOUR ID
01 1  2
10 10 4
05 5 6
20 20 6

Até agora eu estou lutando com algo como (eu sigo algumas sugestões já previstas ifelse no fórum):

DB$NHOUR<-with(DB,ifelse(nchar(HOUR,type="chars")==1),sprintf("%02d",HOUR),as.numeric(HOUR))

mas sem sucesso! R informa sempre que o elemento "sim" não está especificado, etc.

Como sempre, qualquer dica é apreciada!

questionAnswers(4)

yourAnswerToTheQuestion