poloniex.R

library(jsonlite)
library(httr)
library(digest)

api.poloniex <- function(key, secret, command, args = list()) {
  req <- c(list(
    command = command,
    nonce = round(as.numeric(Sys.time()) * 1e4, 0)),
    args)
  
  ret <- POST("https://poloniex.com/tradingApi",
              add_headers(key=key, sign=hmac(secret, httr:::compose_query(req), "sha512")),
              body = req,
              encode = "form")
  stop_for_status(ret)
  content(ret)
}

api.poloniex(exchanges$poloniex$key, exchanges$poloniex$secret, "returnTradeHistory", list(currencyPair = "all"))