我想创建一个函数，在数字精确到5位之前不会向左填充零。为此，我创建了以下函数，名为prefix。
prefix <- function(baa) {
for (i in 1:(5 - nchar(toString(baa)))) {
baa <- paste0("0", baa)
}
baa
}
此函数适用于单个整数，但如果收到向量则无法完成其工作。我的目标是创建一个将返回的函数
00001
00012
00123
01234
12345
给出
1
12
123
1234
12345
我认为这可以通过lapply轻松实现，但我还没有想出来。你能帮忙吗？