Displaying 1 result from an estimated 1 matches for "june08".
Did you mean:
june01
2009 Jun 12
2
Automate a data load and merge
...ch suggestions are
appreciated.
# All scripts function out of the base directory
rm(list=ls())
setwd('/Users/myuser/Documents/workfolder/')
# Check files and list all .csv in directory
files<-list.files()
files<-files[grep('.csv', files)]
# Create labels for each file (ex. June08.csv becomes June08)
labels<-gsub('.csv', '', files)
# Load all .csv datasets and assign name
item<-vector() # preallocate an index of all items in datasets
for(i in 1:length(files)){
X<-read.csv(files[i])
item<-union(item, X$Item_Name)
assign(labels[i], X)
}
# Wh...