if (FALSE) {
# Instantiate a wrapper
wrap <- IBWrapSimple$new()
# Create a client and connect to a server
ic <- IBClient$new()
ic$connect(port=4002, clientId=1)
# Make a request
stock <- IBContract(symbol="GOOG", secType="STK", exchange="SMART", currency="USD")
ic$reqContractDetails(11, stock)
# Process responses
ic$checkMsg(wrap)
# Disconnect
ic$disconnect()
}
Run the code above in your browser using DataLab