tws <- twsConnect() contract <- twsEquity(\'AMZN\',\'SMART\',\'ISLAND\') df <- reqHistoricalData(tws, Contract=contract) > head(df) AMZN.Open AMZ