循环矢量更新仅是第一项

Question

例如，我试图遍历数字矢量：

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

如果数字<10则在项目前添加前导0。否则不执行任何操作。

理想的输出："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])
     }
 }