if (FALSE) {
# Get stored refresh token
refreshToken = readRDS('/secure/location/')
# generate a new access token
accessTokenList = schwab_auth3_accessToken('AppKey', 'AppSecret', refreshToken)
# Set Account Number
account_number = 1234567890
# Place order
buy_order = schwab_placeOrder(account_number = account_number,
ticker = 'SPY',
quantity = 1,
orderType = 'LIMIT',
limitPrice = 500,
instruction = 'buy')
# This will generate a new order ID
repl_order = schwab_replaceOrder(account_number = account_number,
orderId = buy_order$orderId[1],
ticker = 'SPY',
quantity = 1,
orderType = 'LIMIT',
limitPrice = 505,
instruction = 'buy')
}
Run the code above in your browser using DataLab