使用R语言调用Crypto.com API,可以通过以下步骤实现。
步骤1:安装必需的R包 首先需要安装以下R包:httr,jsonlite,openssl。
install.packages("httr") install.packages("jsonlite") install.packages("openssl")
步骤2:设置API请求参数 将以下参数替换为您在Crypto.com API控制台中生成的实际值。
api_key <- "YOUR_API_KEY" secret_key <- "YOUR_SECRET_KEY"
步骤3:创建签名 使用以下代码创建签名字符串。
library(openssl) library(httr) library(jsonlite)
timestamp <- toString(as.numeric(Sys.time())) body <- "{""method"": ""private/get-account-summary"", ""params"": {}}" method <- "POST" route <- "/v2/private/get-account-summary" message <- paste(timestamp, method, route, body, sep = "") sig <- hmac(secret_key, message, algo = "sha256") sig <- paste0("HMAC ", api_key, ":", sig)
步骤4:向API发送请求 使用以下代码发送API请求并获取响应。
url <- "https://api.crypto.com/v2/private/get-account-summary" headers <- c( "Content-Type" = "application/json", "Accept" = "application/json", "X-MBX-APIKEY" = api_key, "X-MBX-Request-Timestamp" = timestamp, "X-MBX-Signature" = sig ) response <- POST(url, headers = headers, body = body) content <- jsonlite::fromJSON(content(response, "text"))
步骤5:解析响应 使用以下代码解析响应。
if(content$result_code == 0){ for(i in 1:length(content$result)){ print(paste(content$result[[i]]$currency, content$result[[i]]$available)) } } else { print(paste(content$message, content$error_code)) }
以上代码将打印您的账户概述信息,包括货