Couple of options using quantmod:
library(quantmod)
SSE <- getSymbols("000001.SS",auto.assign=FALSE)
head(SSE)
000001.SS.Open 000001.SS.High 000001.SS.Low 000001.SS.Close
2007-01-01 2675.47 2675.47 2675.47 2675.47
2007-01-02 2675.47 2675.47 2675.47 2675.47
2007-01-03 2675.47 2675.47 2675.47 2675.47
2007-01-04 2728.19 2847.61 2684.82 2715.72
2007-01-05 2668.58 2685.80 2617.02 2641.33
2007-01-08 2621.07 2708.44 2620.62 2707.20
000001.SS.Volume 000001.SS.Adjusted
2007-01-01 0 2675.47
2007-01-02 0 2675.47
2007-01-03 0 2675.47
2007-01-04 4294967200 2715.72
2007-01-05 4294967200 2641.33
2007-01-08 4294967200 2707.20
setSymbolLookup(SSE=list(name="000001.SS", src="yahoo"))
getSymbols("SSE")
000001.SS.Open 000001.SS.High 000001.SS.Low 000001.SS.Close
2007-01-01 2675.47 2675.47 2675.47 2675.47
2007-01-02 2675.47 2675.47 2675.47 2675.47
2007-01-03 2675.47 2675.47 2675.47 2675.47
2007-01-04 2728.19 2847.61 2684.82 2715.72
2007-01-05 2668.58 2685.80 2617.02 2641.33
2007-01-08 2621.07 2708.44 2620.62 2707.20
000001.SS.Volume 000001.SS.Adjusted
2007-01-01 0 2675.47
2007-01-02 0 2675.47
2007-01-03 0 2675.47
2007-01-04 4294967200 2715.72
2007-01-05 4294967200 2641.33
2007-01-08 4294967200 2707.20
HTH
Jeff
2010/1/22 ??? <dengyishuo at 163.com>: