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)