R/user_trades.R

In nicholasbucher/RBitso: Bitso API Interface

#' User Trades
#'
#' User's Book Trading History.
#' @keywords fees
#' @export
#' @examples
#' user_trades("btc_mxn")

user_trades<-function(book){
  
  url<-paste0("https://api.bitso.com/v3/user_trades/?book=",book)
  NC<-NONCE()
  mthd<-"GET"
  Pyld<-""
  Pth<-substr(url,22,nchar(url))
  
  hdr<-paste0("Bitso ",ky,":",NC,":",openssl::sha256(paste0(NC,mthd,Pth,Pyld),scrt))
  tmp <- tempfile()
  res<-httr::GET(url, httr::add_headers(Authorization=hdr), httr::write_disk(tmp))
  cat(noquote(paste("Success:", httr::content(res)$success,"\n\n")))
  if(httr::content(res)$success== TRUE){
    R<-suppressWarnings(jsonlite::fromJSON(readLines(tmp)))$payload
    R<-transform(R,
                 created_at=time_parse(created_at),
                 minor=as.numeric(minor),
                 major=as.numeric(major),
                 fees_amount=as.numeric(fees_amount),
                 price=as.numeric(price)
                 )
    return(R)
  }
}