loading yahoo finance data directly into R

yahoo.r

yahoo <- function(s) read.csv(file=paste('http://ichart.finance.yahoo.com/table.csv?s=',s,'&c=1900&f=2012&g=d',sep=''));

ticker = 'AAPL'

dat = yahoo(ticker);

plot(main=ticker, xlab='date', ylab='close price',
as.Date(dat$Date),dat$Adj.Close,type='l',log='y');
grid();