Fixing minor bugs in utxotype and decodescript

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: rbtc
 Title: Bitcoin API
-Version: 0.1-4
+Version: 0.1-5
 Authors@R: person("Bernhard", "Pfaff", email = "[email protected]", role = c("aut", "cre"))
 Description: Implementation of the RPC-JSON API for Bitcoin and utility functions for address creation and content analysis of the blockchain.
 Depends: R (>= 3.4.0)

R/BlockchainRpcs.R

@@ -531,8 +531,14 @@ verifytxoutproof <- function(con, proof){
 #' @aliases decodescript
 #' @rdname decodescript
 #' @export
-decodescript <- function(con, redeem){
+decodescript <- function (con, redeem){
     rs <- as.character(redeem)
-    pl <- list(redeem = rs)
+    if (length(rs) > 1){
+        msg <- paste0("\nLength of 'redeem' greater than one,\n",
+                      "using first element, only.\n")
+        warning(msg)
+        rs <- rs[1]
+    }
+    pl <- list(rs)
     rpcpost(con, "decodescript", pl)
 }

R/UtilFuncs.R

@@ -250,7 +250,9 @@ utxotype <- function(con, txid){
                   "result")
     vout <- txdec[["vout"]]
     ans <- unlist(
-        lapply(vout, function(x) x[["type"]])
+        lapply(vout, function(x){
+            x[["scriptPubKey"]][["type"]]
+        })
     )
     ans
 }