#' Available Books
#'
#' Currencies Available for Trade.
#' @keywords books,currency
#' @export
#' @examples
#' available_books()
#'
available_books<-function(){
url<-paste0("https://api.bitso.com/v3/available_books/")
tmp <- tempfile()
res<-httr::GET(url, httr::write_disk(tmp))
cat(noquote(paste("Success:", httr::content(res)$success,"\n\n")))
if(httr::content(res)$success== TRUE){
R<-suppressWarnings(jsonlite::fromJSON(readLines(tmp)))$payload
R<-transform(R,
minimum_price=as.numeric(minimum_price),
maximum_price=as.numeric(maximum_price),
minimum_amount=as.numeric(minimum_amount),
maximum_amount=as.numeric(maximum_amount),
minimum_value=as.numeric(minimum_value),
maximum_value=as.numeric(maximum_value)
)
return(R)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.