Цикл обновления векторов только первый элемент

Question

Я пытался перебрать числовой вектор, например:

s = c(1, 3, 7, 10, 12, 13)

и добавить начальный 0 к элементу, если он числовой <10. Иначе ничего не делать. </p>

Желаемый вывод: "00", "04", "07", "10", "12", "13"

К сожалению, я получил только первый обновленный элемент:

[1] "01" "3" "7" "10" ...

for(i in 1:length(s)) {
     if (s[i] < 10) {
        s[i] <- sprintf("%02d", s[i])
     }
 }