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())