获取A股信息需要在数字代码后加上 .SS（沪市）或者 .SZ（深市）
<br />
library(quantmod)</p>
<p>addMarket <- function(x){ # 添加市场后缀<br />
if (substr(x,1,1)=='6') {<br />
x <- paste(x,'.SS',sep="")<br />
} else if (substr(x,1,1) %in% c('0','3')) {<br />
x <- paste(x,'.SZ',sep="")<br />
}<br />
return(x)<br />
}</p>
<p>code <- "002024"<br />
Fin.code <- getFinancials(addMarket(code),auto.assign=F)<br />
viewFinancials(Fin.code,"IS","Q")</p>
<p>
</p>
