R/txs_byHashOut.R

In PopBogdan97/bCashReader:

#' Retrieve the information about a specific Bitcoin Cash transaction outputs
#'
#' @param string hast of the transaction outputs
#' @return data frame with the information of a specific transaction outputs
#' @export
#' @description Get the all the information of a specific transaction outputs. To see the description of the values retrieved visit: "https://github.com/Blockchair/Blockchair.Support/blob/master/API_DOCUMENTATION_EN.md#link_chainstats" in Dashboard/transaction
#' @author Vasile Adrian Bogdan Pop
#' @examples
#' txs_byHashOut()
txs_byHashOut<- function(hash){
  base <- "https://api.blockchair.com/bitcoin-cash/"
  endpoint <- "dashboards/transaction/"


  call <- paste(base, endpoint, hash, sep = "")
  get_transaction <- GET(call)
  get_transaction_text <- content(get_transaction, "text")

  get_transaction_json <- fromJSON(get_transaction_text, flatten = TRUE)
  get_transaction_json$context<-NULL

  get_transaction_df <- as.data.frame(get_transaction_json$data[[1]]$outputs)
  return(get_transaction_df)
}