przechodząc szereg z wiodącymi zerami funkcjonować

Question

Próbuję napisać funkcję, która ma argument jak poniżej:

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

gdy wartość id jest jak ten 009, drukuje go jako 9.csv nie 009 .csv.

Próbowałem to:

id<-as.character(id) 

to nie działa. Jakieś sugestie?

Answer 1

Użyj np. sprintf():

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

co daje

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

Answer 2

Chociaż już zaakceptowane @ odpowiedź Dirka ...

Problemem jest to, trzeba przejechać swój wkład w postaci numerycznej. Dla R, 009 ocenia się 9:

> 009 
[1] 9 

więc po uruchomieniu myfunction(009), to naprawdę działa myfunction(9). Nie powinno być zaskoczeniem, że otrzymujesz wynik "9.csv".

Zamiast tego, należy zdać wejście jako postać: „009”:

> myfunction("009") 
[1] "009.csv"