如何解决使用IBrokers和R,在实时交易时段中检索最后交易价格的合适方法是什么?
所以目前我是这样的:
contract <- lapply(sym,function(x) twsEquity(x,'SMART','ISLAND'))
lapply(contract,function(x) reqHistoricalData(tws,Contract=x,barSize = "1 day",duration = "1 D",verbose = FALSE))
sym仅仅是30个左右股票符号的向量。 这非常慢。
因此,这可能不是正确的方法。 在我的实时交易时段中,我必须监视100股股票。 他们最后一次交易价格的更新必须在不到几秒钟的时间内恢复,而不是几分钟。
解决方法
您可以使用功能reqMktData
,并将快照设置为TRUE
。
sym <- c("AAPL","MSFT")
contracts <- lapply(sym,function(x) twsEquity(x,'SMART','ISLAND'))
last_prices <- lapply(contracts,function(x) reqMktData(tws,Contract = x,snapshot = TRUE))
忽略您收到的警告。
请注意,lastTimeStamp位于您的本地时间,而不是交易所的时间戳。
last_prices
[[1]]
lastTimeStamp symbol bidSize bidPrice askPrice askSize lastPrice Volume Open High Low Close
1 2020-08-31 18:38:48 AAPL 4 129.46 129.48 3 129.48 1311118 127.67 130.05 126 124.81
[[2]]
lastTimeStamp symbol bidSize bidPrice askPrice askSize lastPrice Volume Open High Low Close
1 2020-08-31 18:38:47 MSFT 1 225.68 225.7 3 225.69 146282 227.1 228.7 224.31 228.91
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。