传递带前导零的数字来运行

Question

我正在尝试编写一个具有如下参数的函数:

myfunction<-function(id){
print(paste(id, ".", "csv", sep=""))
}

当id值类似于009时,它将其打印为9.csv而不是009.csv.

我试过这个:

id<-as.character(id)

这不起作用.有什么建议？

Answer 1

使用例如sprintf():

myfunction <- function(id) {
    sprintf("%03d.csv", id)
}

这使

R> cat(myfunction(9), "\n")
009.csv 
R> cat(myfunction(199), "\n")
199.csv 
R>