r - 正确使用 lapply

Question

我正在使用 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 ？

Answer 1

我错误地阅读了有关 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)