MiniProjCrypto

#install.packages("jsonlite")
library(jsonlite)

## Warning: package 'jsonlite' was built under R version 4.3.3

url <- "https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=100"

data <- fromJSON(url)

btc_data <- data$Data$Data

btc_df <- as.data.frame(btc_data)

max_close <- max(btc_df$close, na.rm = TRUE)

max_close

## [1] 106155.6