You can try this one too.

#Set the directory to a path where all the files to be read are stored

TabletoRead=list.files(pattern=".txt")
I_Step=unlist(lapply(TabletoRead,function(tab){
                     srno<<-ifelse(exists("srno"),(1+srno),1)
                     Temp=read.table(tab,header=T,sep="#Seperator")
                     makeActiveBinding(paste("Table",srno,sep="_"),
function() Temp, .GlobalEnv)
       }))
rm(I_Step)
Ref_Table=cbind(Orignial=TabletoRead,Stored_As=paste("Table",1:length(TabletoRead),sep="_"))

#When required you can check the Ref_Table to get the required table

On Thu, Dec 20, 2012 at 10:41 AM, Jeff Newmiller
<jdnewmil@dcn.davis.ca.us>wrote:

> The short answer is: don't try. You really don't want dozens of different
> objects in memory that you didn't name yourself.
>
> What you want instead is a list of objects. You can start with a vector of
> filenames and use lapply to create another list containing the data frames.
> For convenience you can then set the list element names to the names of the
> files.
>
> fnames <- list.files()
> dta <- lapply( fnames, function(i){read.table(i, header= TRUE) })
> names(dta) <- fnames
>
> You can access these data frames using the $ or "[[" operators.
>
> dta$G1.txt
> dta[["G1.txt"]]
> or
> dta[[2]]
>
> Read more about it in the Introduction to R document supplied with R.
> ---------------------------------------------------------------------------
> Jeff Newmiller                        The     .....       .....  Go Live...
> DCN:<jdnewmil@dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live
> Go...
>                                       Live:   OO#.. Dead: OO#..  Playing
> Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
> /Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
> ---------------------------------------------------------------------------
> Sent from my phone. Please excuse my brevity.
>
> Yao He <yao.h.1988@gmail.com> wrote:
>
> >Dear All
> >
> >I have a lot of files in a directory as follows:
> >"02-03.txt"   "03-04.txt"   "04-05.txt"   "05-06.txt"   "06-07.txt"
> >"07-08.txt"   "08-09.txt"
> > "09-10.txt"   "G0.txt"      "G1.txt"      "raw_ped.txt"
> >..........................
> >
> >I want to read them into different objects according to their
> >filenames,such as:
> >02-03<-read.table("02-03.txt",header=T)
> >03-04<-read.table("03-04.txt",header=T)
> >I don't want to type hundreds of read.table(),so how I read it in one
> >time?
> >I think the core problem is that I can't create different objects'
> >name in the use of loop or sapply() ,but there may be a better way to
> >do what I want.
> >
> >Thanks a lot
> >
> >Yao He
> >
> >Yao He
>
> ______________________________________________
> 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]]


