wlinInspire

lw <- function(v) {
  if (sum(v, na.rm = TRUE) == 0) {
    1 / length(v)
  } else {
    v / sum(v, na.rm = TRUE)
  }
}

wlinInspire

27 9 * * 1-5 /usr/lib/R/bin/R -f '/home/ubuntu/TraderR/script/trading_robot.R' > '/home/ubuntu/TraderR/script/trading_robot.log' 2>&1

wlinInspire

while(hour(Sys.time()) < 16) {

  # check email
  try(get_alert_email(), silent = TRUE)

  # Place order if needed
  tws_order()

  Sys.sleep(5)
}

wlinInspire

mail_query <- paste0('from:"@xxx.com" ',
                     '{subject:trade subject:sell} ',
                     'after:', Sys.Date())

list <- gmailr::threads(
  search = mail_query,
  include_spam_trash = TRUE, num_results = 99999)

ids <- sapply(list, function(x) sapply(x$threads, function(y) y$id)) %>%
  unlist()

wlinInspire

library(IBrokers)
tws <- twsConnect(verbose = FALSE)
symbol <- 'ABC'
quantity <- 100
lmtPrice <- 10
placeOrder(twsconn=tws,
           Contract=twsSTK(symbol),
           Order=twsOrder(reqIds(tws),
                          "BUY",
                          quantity,