Hi: Hmm, these files look familiar...Lahman database? :)
I have the 2010 set, so here's how I got this to work on my system: files <- list.files(pattern = '*.csv') > files [1] "Allstar.csv" "AllstarFull.csv" [3] "Appearances.csv" "AwardsManagers.csv" [5] "AwardsPlayers.csv" "AwardsShareManagers.csv" [7] "AwardsSharePlayers.csv" "Batting.csv" [9] "BattingPost.csv" "Fielding.csv" [11] "FieldingOF.csv" "FieldingPost.csv" [13] "HallOfFame.csv" "HOFold.csv" [15] "lahman58-csv.zip" "Managers.csv" [17] "ManagersHalf.csv" "Master.csv" [19] "Pitching.csv" "PitchingPost.csv" [21] "Salaries.csv" "Schools.csv" [23] "SchoolsPlayers.csv" "SeriesPost.csv" [25] "Teams.csv" "TeamsFranchises.csv" [27] "TeamsHalf.csv" "Xref_Stats.csv" # Have to get rid of #15, then we can proceed: files <- files[-15] # Get the root names out and create a similar vector # of output files with extension .Rdata strp <- unlist(lapply(strsplit(files, '\\.'), '[', 1)) outfiles <- paste(strp, 'Rdata', sep = '.') # Function to read csv and write out an .Rdata file f <- function(x, y) { d <- read.csv(x, header = TRUE, stringsAsFactors = FALSE) save(d, file = y) } # Load and fire: mapply(f, files, outfiles) Worked for me on all but the Master file, so check your results. I loaded in the Master file separately and saved it without problem. HTH, Dennis On Fri, Sep 9, 2011 at 7:39 AM, Michael Friendly <frien...@yorku.ca> wrote: > I have a collection of .csv files in a directory, and want to read them into > R data.frames whose names > are the same as the file names, without the .csv extension > > e.g., from >> (files <- list.files(pattern="*.csv")) > [1] "Allstar.csv" "AllstarFull.csv" > [3] "Appearances.csv" "AwardsManagers.csv" > [5] "AwardsPlayers.csv" "AwardsShareManagers.csv" > [7] "AwardsSharePlayers.csv" "Batting.csv" > [9] "BattingPost.csv" "Fielding.csv" > [11] "FieldingOF.csv" "FieldingPost.csv" > [13] "HallOfFame.csv" "HOFold.csv" > [15] "Managers.csv" "ManagersHalf.csv" > [17] "Master.csv" "Pitching.csv" > [19] "PitchingPost.csv" "Salaries.csv" > [21] "Schools.csv" "SchoolsPlayers.csv" > [23] "SeriesPost.csv" "Teams.csv" > [25] "TeamsFranchises.csv" "TeamsHalf.csv" > >> Allstar <- read.csv("Allstar.csv", header=TRUE) > ... >> TeamsHalf <- read.csv("TeamsHalf.csv", header=TRUE) > > Below is what I tried, which reads all the files, but doesn't create the R > objects in the global environment. > What is missing here? > > for (i in 1:length(files)) { > inp <- read.csv(file=files[i], header=TRUE) > name <- sub(".csv", "", files[i]) > cat("Read ", files[i], "\trows: ", nrow(inp), " cols: ", ncol(inp), "\n") > eval(paste(name, "<- inp")) > } > > Read Allstar.csv rows: 4475 cols: 3 > Read AllstarFull.csv rows: 4676 cols: 8 > Read Appearances.csv rows: 94157 cols: 20 > Read AwardsManagers.csv rows: 57 cols: 6 > Read AwardsPlayers.csv rows: 2679 cols: 6 > Read AwardsShareManagers.csv rows: 344 cols: 7 > Read AwardsSharePlayers.csv rows: 6354 cols: 7 > Read Batting.csv rows: 93955 cols: 24 > Read BattingPost.csv rows: 9840 cols: 22 > Read Fielding.csv rows: 160710 cols: 18 > Read FieldingOF.csv rows: 12028 cols: 6 > Read FieldingPost.csv rows: 10458 cols: 17 > Read HallOfFame.csv rows: 3913 cols: 8 > Read HOFold.csv rows: 289 cols: 7 > Read Managers.csv rows: 3238 cols: 10 > Read ManagersHalf.csv rows: 93 cols: 10 > Read Master.csv rows: 17674 cols: 33 > Read Pitching.csv rows: 40432 cols: 30 > Read PitchingPost.csv rows: 4284 cols: 30 > Read Salaries.csv rows: 21464 cols: 5 > Read Schools.csv rows: 749 cols: 5 > Read SchoolsPlayers.csv rows: 6147 cols: 4 > Read SeriesPost.csv rows: 256 cols: 9 > Read Teams.csv rows: 2655 cols: 48 > Read TeamsFranchises.csv rows: 120 cols: 4 > Read TeamsHalf.csv rows: 52 cols: 10 > Read Xref_Stats.csv rows: 2753 cols: 3 >> ls() > [1] "files" "i" "inp" "name" >> > > -- > Michael Friendly Email: friendly AT yorku DOT ca > Professor, Psychology Dept. > York University Voice: 416 736-5115 x66249 Fax: 416 736-5814 > 4700 Keele Street Web: http://www.datavis.ca > Toronto, ONT M3J 1P3 CANADA > > ______________________________________________ > 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. > ______________________________________________ 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.