library(RTTWebClient)
library(lubridate)
<- InitPublicWebClient(server = "ttlivewebapi.fxopen.com")
ttWebClient #or use InitPrivateWebClient(server = "ttlivewebapi.fxopen.com", port = 8443, id = "", key = "", secret = "") to set a private connect. Need set HMAC id, key and secret
print(ttWebClient$GetDividendsRawMethod())
print(ttWebClient$GetSymbolsInfoRawMethod())
print(ttWebClient$GetBarRawMethod("EURUSD", "Bid","M1", round(as.double(now("UTC")) * 1000), count = -10))
print(ttWebClient$GetTicksRawMethod("EURUSD", round(as.double(now("UTC")) * 1000), count = -10))
<- InitRTTWebApiHost(server = "ttlivewebapi.fxopen.com") ttWebApiHost
print(ttWebApiHost$GetDividends())
print(ttWebApiHost$GetSymbolsInfo())
print(ttWebApiHost$GetBarsHistory("EURUSD", "Bid","M1", now("UTC") - days(1), now("UTC")))
print(ttWebApiHost$GetTickHistory("EURUSD", now("UTC") - days(1), now("UTC")))