It might be more efficient to do the following though:

i = 1:1000
fileNames =
paste("kegg.subrichcdt.",formatC(i,width=4,format="d",flat="0"),".txt",sep="")


So you now only have one vector containing all the names: then

for (i in 1:1000) {
temp = ## WHATEVER MAKES TEMP
write.table(temp,file = file.name[i])
}

should be faster. Depending on how temp is made, you could even coerce this
into the apply family (can't help you there unless you say more about
subrichcdt) for more speed if that's an issue for your proejct.

On Sun, Jul 31, 2011 at 12:46 PM, R. Michael Weylandt <
michael.weylandt@gmail.com> <michael.weylandt@gmail.com> wrote:

> I think this will do it:
>
>  formatC(i,width=4,format="d",flag="0")
>
> Michael Weylandt
>
>
> On Sun, Jul 31, 2011 at 12:30 PM, Matt Curcio <matt.curcio.ri@gmail.com>wrote:
>
>> Greetings all,
>> I would like to append a 4 digit number suffix to the names of my
>> files for later use.  What I am using now only produces 1 or 2 or 3 or
>> 4 digits.
>>
>> ############
>> for (i in 1:1000) {
>>   temp <- (kegg [i,])
>>   temp <- merge (temp, subrichcdt, by="gene")
>>      file.name <- paste ("kegg.subrichcdt.", i, ".txt", sep="")
>>      write.table(temp, file=file.name)
>> }
>> #######
>> But I want:
>> "kegg.subrichcdt.0001.txt"
>> "kegg.subrichcdt.0002.txt", ...
>>
>>
>> Any suggestions
>> M
>> --
>>
>>
>> Matt Curcio
>> M: 401-316-5358
>> E: matt.curcio.ri@gmail.com
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>

	[[alternative HTML version deleted]]

