创建一个R函数，告诉您某种加密货币的多少个硬币等于另一种加密货币？

convert_crypto <- function(amount, from_currency, to_currency) {
  # 在这里编写你的代码
  # 通过调用API或其他方式获取加密货币的汇率信息
  # 计算硬币数量等于另一种加密货币的数量
  # 返回计算结果
}

# 示例用法
convert_crypto(10, "BTC", "ETH")

library(httr)
library(jsonlite)

convert_crypto <- function(amount, from_currency, to_currency) {
  url <- paste0("https://api.coingecko.com/api/v3/simple/price?ids=", from_currency, "&vs_currencies=", to_currency)
  response <- GET(url)
  data <- fromJSON(content(response, "text"))
  
  rate <- data[[from_currency]][[to_currency]]
  converted_amount <- amount * rate
  
  return(converted_amount)
}

# 示例用法
convert_crypto(10, "bitcoin", "ethereum")