Added first API for raw transactions

NAMESPACE

@@ -3,6 +3,7 @@
 export(addnode)
 export(clearbanned)
 export(conrpc)
+export(decoderawtransaction)
 export(disconnectnode)
 export(getaddednodeinfo)
 export(getbestblockhash)
@@ -25,6 +26,7 @@ export(getnettotals)
 export(getnetworkinfo)
 export(getpeerinfo)
 export(getrawmempool)
+export(getrawtransaction)
 export(gettxout)
 export(gettxoutproof)
 export(gettxoutsetinfo)

R/AllClasses.R

@@ -24,17 +24,21 @@ setClass("CONRPC", representation = list(
 #' @description
 #' S4-class union of \code{NULL} or \code{character}.
 #' @family bitcoind functions
+#' @name NullOrCharacter-class 
+#' @rdname NullOrCharacter-class
 #' @export
 setClassUnion(name = "NullOrCharacter",
-              members = c("NULL", "character"))
+              members = c("character", "NULL"))
 #' @title S4 Class Union NULL or integer
 #' 
 #' @description
 #' S4-class union of \code{NULL} or \code{integer}.
 #' @family bitcoind functions
+#' @name NullOrInteger-class 
+#' @rdname NullOrInteger-class
 #' @export
 setClassUnion(name = "NullOrInteger",
-              members = c("NULL", "integer"))
+              members = c("integer", "NULL"))
 #' The ANSRPC class
 #'
 #' This class definition is employed to cast the JSON-objects

R/Rawtransactions.R

@@ -0,0 +1,56 @@
+#' RPC-JSON API: getrawtransaction
+#' 
+#' Returns the raw transaction data.
+#'
+#' @section: Details
+#' By default this function only works for mempool transactions.
+#' If the -txindex option is enabled, it also works for blockchain transactions.
+#' DEPRECATED: for now, it also works for transactions with unspent outputs.
+#' If verbose is 'true', returns an object with information about 'txid'.
+#' If verbose is 'false' or omitted, returns a string that is serialized,
+#' hex-encoded data for 'txid'.
+#'
+#' @param obj object of class \code{CONRPC}.
+#' @param txid \code{character}, the transaction id.
+#' @param verbose \code{logical}, type of output. 
+#'
+#' @return A S4-object of class \code{ANSRPC}.
+#' @family RawTransactions RPCs
+#' @author Bernhard Pfaff
+#' @references \url{https://bitcoin.org/en/developer-reference#getblock},
+#' \url{https://bitcoin.org/en/developer-reference#remote-procedure-calls-rpcs}
+#' @name getrawtransaction
+#' @aliases getrawtransaction
+#' @rdname getrawtransaction
+#' @export
+getrawtransaction <- function(obj, txid, verbose = FALSE){
+    txid <- as.character(txid)
+    verb <- ifelse(verbose, 1L, 0L)
+    pl <- list(txid = txid, verbose = verb)
+    rpcpost(obj, "getrawtransaction", pl)
+}
+
+
+
+#' RPC-JSON API: decoderawtransaction
+#' 
+#' Return a JSON object representing the serialized,
+#' hex-encoded transaction.
+#'
+#' @param obj object of class \code{CONRPC}.
+#' @param hexstring \code{character}, the transaction hex string.
+#'
+#' @return A S4-object of class \code{ANSRPC}.
+#' @family RawTransactions RPCs
+#' @author Bernhard Pfaff
+#' @references \url{https://bitcoin.org/en/developer-reference#getblock},
+#' \url{https://bitcoin.org/en/developer-reference#remote-procedure-calls-rpcs}
+#' @name decoderawtransaction
+#' @aliases decoderawtransaction
+#' @rdname decoderawtransaction
+#' @export
+decoderawtransaction <- function(obj, hexstring){
+    hexstring <- as.character(hexstring)
+    pl <- list(hexstring = hexstring)
+    rpcpost(obj, "decoderawtransaction", pl)
+}