From 4389f2bca6b3b8385163dfd76004d5828406b404 Mon Sep 17 00:00:00 2001
From: pegeler <paulegeler@gmail.com>
Date: Fri, 22 Jun 2018 22:34:35 -0400
Subject: [PATCH] Adding in recursive call to process_user_input for 'response'

Also removing partial dependency on httr
---
 R/R/process_user_input.r | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/R/R/process_user_input.r b/R/R/process_user_input.r
index 9da1601..5a4a3ac 100644
--- a/R/R/process_user_input.r
+++ b/R/R/process_user_input.r
@@ -36,18 +36,6 @@ process_user_input.character <- function(x, ...) {
 
 process_user_input.response <- function(x, ...) {
 
-  if (!requireNamespace("httr", quietly = TRUE)) {
-    stop(
-      "The package 'httr' is needed to convert ",
-      deparse(substitute(x)),
-      " into a data frame.",
-      "\n       Either install 'httr' or pass ",
-      deparse(substitute(x)),
-      " as a 'data.frame'.",
-      call. = FALSE
-    )
-  }
-
-  httr::content(x, as = "text")
+  process_user_input(rawToChar(x$content))
 
 }