add disk value in RequestSignature class & have set_body() within Res…

…ponse account for when disk used #57

DESCRIPTION

@@ -6,7 +6,7 @@ Description: Stubbing and setting expectations on 'HTTP' requests.
     'HTTP' method, query parameters, request body, headers and
     more. Can be used for unit tests or outside of a testing 
     context.
-Version: 0.3.4.9319
+Version: 0.3.4.9320
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), email =
     "[email protected]", comment = c(ORCID="0000-0003-1444-9135")),

R/RequestSignature.R

@@ -20,6 +20,7 @@
 #'  \item headers - headers as a named list
 #'  \item proxies - proxies as a named list
 #'  \item auth - authentication details, as a named list
+#'  \item disk - if writing to disk, the path (character)
 #' }
 #'
 #' @format NULL
@@ -57,6 +58,17 @@
 #' bb$headers
 #' bb$body
 #' bb$to_s()
+#' 
+#' # with disk path
+#' f <- tempfile()
+#' bb <- RequestSignature$new(
+#'   method = "get",
+#'   uri = "https:/httpbin.org/get",
+#'   options = list(disk = f)
+#' )
+#' bb
+#' bb$disk
+#' bb$to_s()
 
 RequestSignature <- R6::R6Class(
   'RequestSignature',
@@ -68,6 +80,7 @@ RequestSignature <- R6::R6Class(
     proxies = NULL,
     auth = NULL,
     url = NULL,
+    disk = NULL,
 
     initialize = function(method, uri, options = list()) {
       verb <- match.arg(tolower(method), http_verbs)
@@ -97,6 +110,9 @@ RequestSignature <- R6::R6Class(
         cat("  auth: ", sep = "\n")
         cat_foo(self$auth)
       }
+      if (!is.null(self$disk)) {
+        cat(paste0("  disk: ", self$disk), sep = "\n")
+      }
     },
 
     to_s = function() {
@@ -141,6 +157,11 @@ RequestSignature <- R6::R6Class(
           self$auth <- options$auth
         }
       }
+      if ('disk' %in% names(options)) {
+        if (!is.null(options$disk) && length(options)) {
+          self$disk <- options$disk
+        }
+      }
     }
   )
 )

R/Response.R

@@ -123,10 +123,10 @@ Response <- R6::R6Class(
     },
     get_respone_headers = function() self$response_headers,
 
-    set_body = function(body) {
+    set_body = function(body, disk = FALSE) {
       self$body <- body
       self$content <- if (!is.null(body) && is.character(body)) {
-        charToRaw(body)
+        if (disk) body else charToRaw(body)
       } else {
         raw(0)
       }