stock <- IBContract(symbol="GOOG", secType="STK", exchange="SMART", currency="USD")
# Equivalent to
stock <- Contract
stock$symbol <- "GOOG"
stock$secType <- "STK"
stock$exchange <- "SMART"
stock$currency <- "USD"
order <- IBOrder(action="BUY", totalQuantity=10, orderType="LMT", lmtPrice=99)
condition <- fCondition("Time")
condition$is_more <- TRUE
condition$value <- "20221114-12:00"
Run the code above in your browser using DataLab