14 lines
757 B
R
14 lines
757 B
R
|
# Download real BTCUSDT hourly klines from the Binance REST API into a CSV that the
|
||
|
|
# other examples can consume. Requires network access and the 'jsonlite' package.
|
||
|
|
if (!requireNamespace("jsonlite", quietly = TRUE)) stop("install 'jsonlite' to run this example")
|
||
|
|
url <- "https://api.binance.com/api/v3/klines?symbol=BTCUSDT&interval=1h&limit=500"
|
||
|
|
cat("Fetching", url, "\n")
|
||
|
|
klines <- jsonlite::fromJSON(url)
|
||
|
|
dir.create("data", showWarnings = FALSE)
|
||
|
|
df <- data.frame(
|
||
|
|
timestamp = as.numeric(klines[, 1]), open = klines[, 2], high = klines[, 3],
|
||
|
|
low = klines[, 4], close = klines[, 5], volume = klines[, 6]
|
||
|
|
)
|
||
|
|
utils::write.csv(df, "data/btcusdt_1h.csv", row.names = FALSE, quote = FALSE)
|
||
|
|
cat(sprintf("Wrote %d klines to data/btcusdt_1h.csv\n", nrow(df)))
|