Obtenga el precio de las criptomonedas en tiempo real usando R y la API de Binance

 En este artículo, veremos cómo obtener el precio en tiempo real de las criptomonedas utilizando la API de Binance en el lenguaje de programación R.

API de Binance

La API de Binance es un método que le permite conectarse a los servidores de Binance utilizando varios lenguajes de programación. Con él, puede automatizar su comercio y realizar requests HTTP para enviar y recibir datos.

Aquí accedemos a la API de Binance usando R con el paquete httr. Enviaremos requests a la API de Binance y extraeremos el precio en tiempo real de la criptomoneda requerida en formato JSON. Usaremos el paquete jsonlite para convertir los datos sin procesar extraídos al formato JSON.

Obtenga el precio de las criptomonedas usando R y la API de Binance

Usaremos httr GET() para realizar requests de URL y almacenar datos en una variable. Ahora necesitaremos datos JSON, por lo que debemos convertir los datos en formato char porque GET() devuelve datos sin procesar, por lo que necesitaremos usar rawToChar() y para convertir datos char en formato JSON usaremos fromJSON() integrado en jsonlite paquete.

Nota: no necesita incluir install.package() en el script si ya tiene el paquete instalado.

Ejemplo:

# installing required packages
install.packages("httr")
install.packages("jsonlite")
 
# importing packages/libraries
library(httr)
library(jsonlite)
 
# requesting raw data from URL using GET()
# and string in r variable.
r < - GET("https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT")
 
# converting raw data to char format.
response = rawToChar(r$content)
 
# converting char data to json format.
data = fromJSON(response)
 
# storing keys and values of json
# data in separate variables
pair < - data$symbol
value < - data$price
 
# printing output
print(paste(pair, "price is", value))

Producción:

[1] "BTCUSDT price is 38517.24000000"

Obtenga múltiples precios de criptografía en tiempo real

Para obtener múltiples precios, solo necesitamos ejecutar un bucle n veces y pasar diferentes pares de divisas al final de la URL.

Ejemplo:

# installing packages
install.packages("httr")
install.packages("jsonlite")
 
# importing packages/libraries
library(httr)
library(jsonlite)
 
# declaring all pairs of currency pairs we need
pairs < - c("DOGEUSDT", "BTCUSDT", "ETHUSDT")
 
# running loop
for (i in 1: 3){
    p < - pairs[i]  # storing pair in p variable by it's index value
   
    # completing url and storing it in url variable
    url = paste0("https://api.binance.com/api/v3/ticker/price?symbol=", p)
    r < - GET(url)  # requesting url data
    res = rawToChar(r$content)  # converting raw content to char format
    data = fromJSON(res)  # converting char to json format
   
    # storing keys and values of json data in separate variables
    pair < - data$symbol
    value < - data$price
   
    # printing output
    print(paste(pair, "price is", value))
}

Producción:

[1] "DOGEUSDT price is 0.13180000"
[1] "BTCUSDT price is 38408.24000000"
[1] "ETHUSDT price is 2685.00000000"