library(RTTWebClient)
library(lubridate)
<- 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")))
print(ttWebApiHost$GetCurrencyInfo())