从yahoo获得股票数据的问题

A股的股票ticker是数字开头，请教如何转化数字代码为R的变量，quantmod和tseries获得数据都遇到这个问题无法解决。比如以下代码，如何将tmp2转存为X000001.sz 这样的变量？

诚心请教

<br />
batchdata <- function (x) {<br />
get.hist.quote(x,start="2010-10-10",end="2010-10-20") -> tmp0<br />
as.data.frame(tmp0) -> tmp1<br />
tmp1$Close -> tmp2 }<br />