initBitBayAPI <- function() {
require(rAPI)
rChange <- init_rAPI(baseUrl = "https://bitbay.pl/API")
bitBayAPI <- list()
bitBayAPI$shared <- list()
bitBayAPI$shared$getUrl <- list()
bitBayAPI$shared$getUrl$public <- function(urlEndpointPart, parameters) {
url <- paste(rChange$base, urlEndpointPart, "/", parameters$coin, parameters$refCoin, "/", parameters$type, ".json", sep="")
return (url)
}
bitBayAPI$getAll <- function(coin="ETH", refCoin="BTC", type="all") {
return (rChange$api$generic(urlEndpointPart="/Public", getUrl=bitBayAPI$shared$getUrl$public ))
}
bitBayAPI$getTicker <- function(coin="ETH", refCoin="BTC", type="ticker") {
return (rChange$api$generic(urlEndpointPart="/Public", getUrl=bitBayAPI$shared$getUrl$public ))
}
bitBayAPI$getMarket <- function(coin="ETH", refCoin="BTC", type="market") {
return (rChange$api$generic(urlEndpointPart="/Public", getUrl=bitBayAPI$shared$getUrl$public ))
}
bitBayAPI$getOrderbook <- function(coin="ETH", refCoin="BTC", type="orderbook") {
return (rChange$api$generic(urlEndpointPart="/Public", getUrl=bitBayAPI$shared$getUrl$public ))
}
bitBayAPI$getTrades <- function(coin="ETH", refCoin="BTC", type="trades") {
return (rChange$api$generic(urlEndpointPart="/Public", getUrl=bitBayAPI$shared$getUrl$public ))
}
return (bitBayAPI)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.