R/Bahibo_price.R

In StephanBahibo/Bahibo: Prices and historical crypto data (Crypto Data)

bahibo.price <- function(name="Name",symbol="Symbol",currency="EUR"){
  currency<-toupper(currency)
  symbol<-toupper(symbol)
  name<-paste(toupper(substr(name, 1, 1)), substr(name, 2, nchar(name)), sep="")


  if(currency!="EUR" & currency != "USD" & currency != "CHF"){
    stop("currency no found")
  }

  data<-switch (currency,
    "EUR" = read.csv2("https://bahibo.com/de/csv/krypto.csv",sep = ";"),
    "USD" = read.csv2("https://bahibo.com/en/csv/crypto.csv",sep = ";"),
    "CHF" =read.csv2("https://bahibo.com/de/csv/krypto_CHF.csv",sep = ";")
  )
  colnames(data)[4]<-currency
  colnames(data)[2]<-"Name"
  colnames(data)[3]<-"Symbol"
  data<-data[c(2,3,4,7)]

  if(name %in% data$Name){
    price<-data[data$Name==name,3]
    date<-data$EUR_last_updated[1]

    data<-data.frame(price)
    colnames(data)<-paste(symbol,date,"CET")
  }
  if(symbol %in% data$Symbol){
    price<-data[data$Symbol==symbol,3]
    date<-data$EUR_last_updated[1]
    data<-data.frame(price)
    colnames(data)<-paste(symbol,date,"CET")
    }
  return(data)
}
(bahibo.price(currency = "EUR"))
symbol="BTC"