Fix closing of connection in fake_request

DESCRIPTION

@@ -15,6 +15,7 @@ Description: In order to facilitate parsing of http requests and creating
     builds upon the 'rook' specification and is thus well suited to be combined
     with 'httpuv' based web servers.
 License: MIT + file LICENSE
+Encoding: UTF-8
 LazyData: TRUE
 Depends: R (>= 2.10)
 Imports: R6,
@@ -27,7 +28,7 @@ Imports: R6,
     xml2,
     webutils,
     utils
-RoxygenNote: 6.0.1.9000
+RoxygenNote: 6.1.0
 Roxygen: list(markdown = TRUE)
 Suggests: fiery,
     testthat,

R/formatters.R

@@ -13,7 +13,7 @@
 #' to their respective formatters
 #'
 #' @examples
-#' fake_rook <- test <- fiery::fake_request(
+#' fake_rook <- fiery::fake_request(
 #'   'http://example.com/test',
 #'   content = '',
 #'   headers = list(
@@ -28,6 +28,10 @@
 #' res$format(json = format_json(), csv = format_table(sep=','))
 #' res$body
 #'
+#' # Cleaning up connections
+#' rm(fake_rook, req, res)
+#' gc()
+#'
 NULL
 
 #' @rdname formatters

R/parsers.R

@@ -13,7 +13,7 @@
 #' to their respective parsers
 #'
 #' @examples
-#' fake_rook <- test <- fiery::fake_request(
+#' fake_rook <- fiery::fake_request(
 #'   'http://example.com/test',
 #'   content = '[1, 2, 3, 4]',
 #'   headers = list(
@@ -25,6 +25,10 @@
 #' req$parse(json = parse_json())
 #' req$body
 #'
+#' # Cleaning up connections
+#' rm(fake_rook, req)
+#' gc()
+#'
 NULL
 
 #' @rdname parsers

R/request.R

@@ -143,7 +143,7 @@
 #' @export
 #'
 #' @examples
-#' fake_rook <- test <- fiery::fake_request(
+#' fake_rook <- fiery::fake_request(
 #'   'http://example.com/test?id=34632&question=who+is+hadley',
 #'   content = 'This is an elaborate ruse',
 #'   headers = list(
@@ -166,6 +166,10 @@
 #' # Perform content negotiation for the response
 #' req$accepts(c('html', 'json', 'txt'))
 #'
+#' # Cleaning up connections
+#' rm(fake_rook, req)
+#' gc()
+#'
 Request <- R6Class('Request',
   public = list(
     initialize = function(rook, trust = FALSE) {

R/response.R

@@ -153,7 +153,7 @@
 #' @export
 #'
 #' @examples
-#' fake_rook <- test <- fiery::fake_request(
+#' fake_rook <- fiery::fake_request(
 #'   'http://example.com/test?id=34632&question=who+is+hadley',
 #'   content = 'This is elaborate ruse',
 #'   headers = list(
@@ -180,6 +180,10 @@
 #' res$body
 #' res$get_header('Content-Disposition')
 #'
+#' # Cleaning up connections
+#' rm(fake_rook, req, res)
+#' gc()
+#'
 Response <- R6Class('Response',
   public = list(
     # Methods