Thanks for your commands, Ivan and Michael! However, I am still not producing the right codes. Would you please help me on this? I've written the following codes. Please comment. Thank you very much.
Task: Reading data1.dat to data1000.dat (with missing files) into R. Missing files can be omitted in the list. ###FUNCTION TO READ FILES little_helpful <- function(n) { file_name <- paste0("C:/.../data", n, ".dat") read.table(file_name) } ###RETURN AN OBJECT WHICH CHECKS FOR THE EXISTENCE OF FILES check <- function(n) { a <- ifelse(file.exists(paste0("C:/.../data", n, ".dat")), 1, 0) a } ###Combining the functions IMPORT <- function(n) { L <- check(1:n) for (i in 1:n) { if (L[i] == 1) list_of_datasets <- lapply(i, little_helpful) else list_of_datasets <- 0 } list_of_datasets } Thanks for all comments. Best Regards, Ray On Fri, Jan 25, 2013 at 5:48 PM, Ivan Calandra <ivan.calan...@u-bourgogne.fr > wrote: > Hi, > > Not sure this is what you need, but what about list.files()? > It can get you all the files from a given folder, and you could then work > this list with regular expressions for example. > > HTH, > Ivan > > -- > Ivan CALANDRA > Université de Bourgogne > UMR CNRS/uB 6282 Biogéosciences > 6 Boulevard Gabriel > 21000 Dijon, FRANCE > +33(0)3.80.39.63.06 > ivan.calan...@u-bourgogne.fr > http://biogeosciences.u-**bourgogne.fr/calandra<http://biogeosciences.u-bourgogne.fr/calandra> > > Le 25/01/13 10:00, R. Michael Weylandt a écrit : > >> On Fri, Jan 25, 2013 at 6:11 AM, Ray Cheung <ray1...@gmail.com> wrote: >> >>> Dear Michael, >>> >>> Thanks for your codes. However, lapply does not work in my case since >>> I've >>> some files missing in the data (say, the file data101.dat). Do you have >>> any >>> suggestions on this?? Thank you very much. >>> >>> You could simply add a test using file.exists() but I'm not sure what >> you want to do with the M matrix then -- omit the slice (so the others >> are all shifted down one) or fill it entirely with NA's. >> >> Michael >> >> ______________________________**________________ >> R-help@r-project.org mailing list >> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help> >> PLEASE do read the posting guide http://www.R-project.org/** >> posting-guide.html <http://www.R-project.org/posting-guide.html> >> and provide commented, minimal, self-contained, reproducible code. >> >> > ______________________________**________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help> > PLEASE do read the posting guide http://www.R-project.org/** > posting-guide.html <http://www.R-project.org/posting-guide.html> > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]]
______________________________________________ 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.