Added additional unit tests to Arvados class

[arvados.git] / sdk / R / R / HttpRequest.R

diff --git a/sdk/R/R/HttpRequest.R b/sdk/R/R/HttpRequest.R
index cc4d8683a954b3cb6ddacc01a4569e63b7f636fe..5cee567437dfa33fcd68c7ba7704e9c3b0852ae3 100644 (file)
--- a/sdk/R/R/HttpRequest.R
+++ b/sdk/R/R/HttpRequest.R
@@ -64,7 +64,6 @@ HttpRequest <- R6::R6Class(
             h <- curl::new_handle()
             curl::handle_setopt(h, customrequest = "MOVE")
             curl::handle_setheaders(h, .list = headers)
-            print(url)
 
             propfindResponse <- curl::curl_fetch_memory(url, h)
         }
@@ -76,7 +75,7 @@ HttpRequest <- R6::R6Class(
         {
             finalQuery <- NULL
 
-            if(!is.null(filters))
+        if(!is.null(filters))
             {
                 filters <- sapply(filters, function(filter)
                 {