library(RTTWebClient)
library(lubridate)ttWebApiHost <- InitRTTWebApiHost(server = "ttlivewebapi.fxopen.com")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())