In benjaminguinaudeau/binancer: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(
  collapse = TRUE,
  eval = F,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

Binancer

Trade cryptocurrencies on binance from within R.

Installation

# install.packages("devtools")
devtools::install_github("benjaminguinaudeau/binancer")

How to trade

# This provides binancer credentials information to place orders and retrieve order information
register_account(
  api_key = "<your_api_key>",
  api_secret = "<your_api_secret>", 
  keep_registered = F #If true, the api_keys will be written in your .Renviron and load at each new session
)

Get the rules for each market

exchanges_all <- coin_exchange_info() %>% #Can take some time
  dplyr::glimpse()
# readr::write_rds(exchanges_all, "data/exchanges_all.rds")
# exchanges_all <- readr::read_rds("data/exchanges_all.rds")

Do some trades

# Buy 10 BTC
coin_trade(exchanges_all, taking = "BNB", giving = "USDT", taking_qt = .1, test = T, verbose = T)
# Buy BTC for 15 BUSD
coin_trade(exchanges_all, taking = "BNB", giving = "USDT", giving_qt = 15, test = T, verbose = T)

# Sell BTC for 15 BUSD
coin_trade(exchanges_all, taking = "USDT", giving = "BNB", taking_qt = 15, test = T, verbose = T)

# Sell 10 BTC 
coin_trade(exchanges_all, taking = "USDT", giving = "BNB", giving_qt = .125, test = T, verbose = T)

Check your assets

# Return how much of each coin is detained
coin_wallets() 
# Equity of all portfolios
coin_value_wallets() 

Trade history

coin_all_orders(symbol = "BTCUSDT", limit = 5) # 5 last BTCUSDT orders
coin_all_orders(symbol = c("BTCUSDT", "ADAUSDT"), limit = 5)
coin_all_orders(symbol = c("BTCUSDT", "DENTUSDT"), limit = 5)

Other function

# What is the current time of Binance Server
coin_server_time()
# Is everything normal
coin_system_status()

Prices

coin_prices()
coin_prices(symbol = "^USDT")

Orders book

coin_book()
coin_book(symbol = "BTCUSDT")
coin_book(symbol = "BTCUSDT", limit = 1000)
coin_book(symbol = "^USDT", limit = 10)

Get trades

coin_trades(symbol = "BTCUSDT")
coin_trades(symbol = "BTCUSDT", limit = 1000)
coin_trades(symbol = "^USDT", limit = 10)

Get average price

coin_average_price(symbol = "BTCUSDT")
coin_average_price(symbol = "^USDT")

Ticker

coin_ticker(symbol = "BTCUSDT")
coin_ticker(symbol = "^USDT")

# coin_symbol_ticker() error
coin_symbol_ticker(symbol = "BTCUSDT")
coin_symbol_ticker(symbol = "^USDT")

# coin_book_ticker() error
coin_book_ticker(symbol = "BTCUSDT")
coin_book_ticker(symbol = "^USDT")

Other order types

Stop Limit

coin_ftrade(exchanges_all, 
            taking = "BUSD", 
            giving = "ADA", 
            taking_qt = 200, 
            limit_price = 2.39333,
            stop_price = 2.39333, 
            tif = "GTC")

binancer::delete_order("BNBBUSD", order_id = "....")

Use a proxy

# Sys.setenv("BINANCE_PROXY" = "",
#            "BINANCE_USERPW" = "")
# Sys.setenv("BINANCE_PROXY" = "proxyadress.io:8080", 
#            "BINANCE_USERPW" = "user:pw")
Sys.setenv("BINANCE_SIZE" = "TRUE")

coin_all_orders(symbol = "BNBBUSD", start = lubridate::dmy("01/08/2022"))

devtools::load_all()
library(dplyr)

dir(".", recursive = T, pattern = ".R$", full.names = T) %>%
  purrr::map_dfr(~{
    if(any(stringr::str_detect(readLines(.x), "ex_rule"))) return(tibble::tibble(path = .x))
  })

benjaminguinaudeau/binancer documentation built on Aug. 8, 2022, 12:05 a.m.