From 696b286a86824eb72e8a36ce456f675aaf04cbf2 Mon Sep 17 00:00:00 2001
From: Will Beasley <wibeasley@hotmail.com>
Date: Wed, 7 Sep 2016 19:22:16 -0500
Subject: [PATCH] disable checking for now

Addresses #127
---
 R/redcap-read-oneshot.R | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/R/redcap-read-oneshot.R b/R/redcap-read-oneshot.R
index 0caf7584..7aa7a92d 100644
--- a/R/redcap-read-oneshot.R
+++ b/R/redcap-read-oneshot.R
@@ -179,25 +179,26 @@ redcap_read_oneshot <- function(
         round(elapsed_seconds, 1), " seconds.  The http status code was ",
         status_code, "."
       )
-      
-      ds <- dplyr::mutate_if(
-        ds,
-        is.character,
-        function(x) dplyr::coalesce(x, "") #Replace NAs with blanks
-      ) 
-      
-      ds <- dplyr::mutate_if(
-        ds,
-        is.character,
-        function( x ) gsub("\r\n", "\n", x, perl=TRUE)
-      ) 
-      ds <-  dplyr::mutate_if(
-        ds,
-        function( x) inherits(x, "Date"),
-        as.character
-      ) 
-      
-      ds <- base::as.data.frame(ds)
+
+      # browser()
+      # ds <- dplyr::mutate_if(
+      #   ds,
+      #   is.character,
+      #   function(x) dplyr::coalesce(x, "") #Replace NAs with blanks
+      # ) 
+      # 
+      # ds <- dplyr::mutate_if(
+      #   ds,
+      #   is.character,
+      #   function( x ) gsub("\r\n", "\n", x, perl=TRUE)
+      # ) 
+      # ds <- dplyr::mutate_if(
+      #   ds,
+      #   function( x) inherits(x, "Date"),
+      #   as.character
+      # ) 
+      # 
+      # ds <- base::as.data.frame(ds)
     
       #If an operation is successful, the `raw_text` is no longer returned to save RAM.  The content is not really necessary with httr's status message exposed.
       raw_text <- ""