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