使用getsymbols函数通过编辑框动态访问符号

Question

我尝试了一种奇怪的方式来访问我在GUI中的“YAHOO.FINANCE”中的符号，这是gwidgets中的一个例子：

library(FuzzyToolkitUoN)
library(splines)
library(plyr)
library(Cairo)
library(cairoDevice)
library(gWidgets2)
library(gWidgetsRGtk2)
library(e1071)
library(RGtk2)
library(quantmod)
library(TTR)
library(xts)

tbl[5,1] <- glabel("ENTER SYMBOL:-", cont = tbl)

tbl[5,2] <- gedit("", cont = tbl, coerce.with = as.character)

BSS <- function(h,...)
{    
  options(guiToolkit = "RGtk2")
  data <- new.env()
  getSymbols(svalue(tbl[5, 2]), env = data, auto.assign = TRUE)
  options("getSymbols.warning4.0" = FALSE)
  ashdata1 <- data.frame(tbl[5, 2])
}

我无法从getSymbol函数中获取这些符号。任何人都可以告诉我如何动态访问这些符号，这样用户可以指定任何符号，只需点击一下按钮即可访问这些数据吗？