我正在使用TWS API,但它对我不起作用。 我接近做我想做的事情,但我被困在试图弄清楚如何正确使用 lapply 函数。
以下是我目前的工作:
library("IBrokers")
tws <- twsConnect()
tickers <- c("AAPL","YHOO")
reqMktData(tws, lapply(tickers, twsSTK), tickGenerics="", snapshot=T)
twsDisconnect(tws)
我想在上面对twsSTK进行规范。 不使用lapply,单个
library("IBrokers")
tws <- twsConnect()
reqMktData(tws, twsSTK("AAPL", exch = "ISLAND", currency = "USD"), tickGenerics="", snapshot=T)
twsDisconnect(tws)
但是,在这种情况下,我很难尝试充分使用lapply。
有谁知道如何在这里处理lapply吗?
我错误地阅读了有关 lapply 的文档。 请参阅附件了解我的解决方案。
library("IBrokers")
tws <- twsConnect()
tickers <- c("AAPL","YHOO","MSFT","GLD")
reqMktData(tws, lapply(tickers, twsSTK, exch = "ISLAND", currency = "USD"), tickGenerics="", snapshot=T)
twsDisconnect(tws)